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I. 


INTRODUCTION 


The development" of computer softA'ore for microprocessors is materially aided by the 
assembler program; such programs generally alio// the use of mnemonic variable names instead 
of absolute addressing and they will compute relative addresses for branching instructions 
and other useful functions. The programmer's task can then emphasize program content 
rather than the specific forms required by the target microprocessor instruction set. 

The NASA Tri-University team at Ohio University is designing low-cost, micro- 
computer-based navigation receivers, and the assembler described in th'; paper v/as 
implemented for support of this project effort. 

Ohio University provides computer services to its departments from a central site 
utilizing remote communication terminals. The flexibility of the environment provided by 
IBM's Virtual Machine Facility^^^ and the Conversational Monitor System make 
possible the convenient assembler access described herein. 

This implementation of the assembler for the MOS Technology 6502 microprocessor 
chip serves a part of the present need; it forms a model for support of other microprocessors, 
for which we expect to have applications in the future. 

The 6502 Assembler is in current use for development of Omega navigation software 
for the Ohio University Software-Based Receiver, the developmental models of which use the 
JOLT (TM) and KIM-1 (TM) microcomputer hardware. 


II. MOS TECHNOLOGY 6502 MICROPROCESSOR INSTRUCTIONS 

The MOS Technology 6502 Microprocessing Unit (MPU) integrated circuit chip 
is used in the JOLT and KIM-1 microcomputer units, in combination with appropriate 
read-only-memory and random-access memory chips. The MPU chip has some 55 unique 
operations, each of which moy be performed upon data in a variety of ways. Some thirteen 
addressing modes allow flexibility in applying the 6502s basic logical operations to data. 

Figure 1 reproduces the JOLT microcomputer reference data for addressing modes 
and instructions. The KIM-1 data are identical. 

The complete descriptions of the 6502 addressing modes and instructions are contained 
•n the JOLT and KIM-1 literature (see references 4,5,6); they will not be repeated here. 

The 6502 Assen.bler accepts the mnemonic forms of all 6502 instructions as operation codes. 
Addressing modes are determined by the type of assembler operand entered with the operation 
code. Assembler statements are described in Section III of this paper. 

































65C: ASSffMBLER LANGUAGE 


This descripflon of the 6502 Assembler Language provides a user's guide to writing 
assembler statements for the MOS Technolog/ 6502 microcomputer chip instruction set. The 
assembler allows selection of basic 6502 operation codes (opcode) or certain additional 
operations defined by the assembler which aid the programmer in establishing data areas, 
constants and program flow control. This description is heavily dependent on Rankin's 
Cross-Assembler Manual. ^7] 

Assembler input consists of a group of assembler stotemer.ts followed by an END 
assembler instruction. Outputs consist of a "clean" (formatted) version of the input state- 
ments, error messages as appropriate, and a hexidecimal output file containing program 
object code in a format readable by JOLT or KIM-1 hex program loaders. 

A. Assembler Source Statement Format . A source line has four parts: a label field, 
an opcode field, an operand field, and a comment field. The fields are defined by one to 
any number of spaces separating them. A total line is up to 72 characters long. 

Label - A label must start in the first position in the line. If the first position is blank, no 
label is assumed. A label must start with an alphabetic character and can be 1 to 6 characters 
in length. All base page labels must appear before their first use as an operand. 

" * " in the first position of the line indicates that the line is to be taken as a comment. 

Opcode - The opcode is three characters long always proceeded by at least one space. 
Opcodes are of two forms. The first form causes the creation of a machine instruction (1 
to 3 bytes) and is known as a machine operation code ( opcode). The second form is either 
a control statement to the assembler, or it defines constants, addresses, or symbols and is 
known as pseudo-opcode. Each pseudo-opcode will be explained below. 

Operand - Most, although not all, opcodes require an operand for additional information, 
such as an address. An operand is preceeded by, and terminated by, a space. The exact 
form of the operand determines in part which addressing mode is to be used. 

Comments - After the operand (or opcode if no operand required) and a trailing space, the 
remainder of the line can be devoted to comments and is not processed by the assembler. 

1. Addressing Modes. The 6502 has 13 addressing modes. Consult the summary 
sheet. Figure 1, for which instructions use which modes, and for mnemonics. The following 
paragraphs give addressing modes and operands required. 

Implied - Any instruction which uses implied addressing does not need an operand. 

Immediate - This mode places the operand value as the second byte of the assembled ir.- 
struction. The operand has the form =Label [+/- ^], ~ ^ , or =' &'. Where [. . .J is optional. 
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and +/“ means either + or - . # is a number which has the following prefixes: 


None 

Decimal 

& 

Octal 

$ 

Hexadeimal 

% 

Binary 


Relative - Relative addressing is used for branching statements and has two forms. In the 
first form, the operand is label C+/“ ^ ^ O'” ^ operand must be within +127 

to -128 of the current program counter (when pointing to the start of the next instruction). 

In the second form the offset is given by +/- ^ where +/- ^ must be in the range +127 to -123 
and is the relative jump from the start of the next Instruction. 

Absolute - Absolute addressing creates 3 bytes of machine code (1 for the instruction and 2 
for address). It has the form label [+/-*], or * [+/- '^3, where * is the value of the 
program counter. 

Z. Page - Zero-page addressing is same as absolute except that the address has a value of 
less than 256. Note that labels appearing in the operand must be previously defined or 
improper assembly will result. 

Accumulotor - Operand is A. A is a reserved symbol and cannot be used otherwise as a 
label. 

Indexed - Indexed addressing can either be zero-page or absolute and use either index 
register (if allowed by the instruction). The form is Add, X or Add, Y where Add is an 
address formed as described for addresses in absolute and zero page addressing. 

Indexed Indirect - Indexed indirect addressing uses only the X register. The operand is 
added to X which then points to a full address stored in the base page. Form is (Add, X) 
where Add is an address as described in zero page addressing. 

Indirect Indexed - Y is added to the address in Add with carry added to address in Add+1 . 
The fetch is obtained from the resulting memory location. Form is (Add), Y where Add hos 
same form os above. 

Indirect - Use only in the JM^ instruction end has form (Add). 

B. Assembler Instructions (Pseudo-Opcodes). 


ORG ^ Sets program counter to h 

END Ends Assembly 

Label EQU M - Assigns the value of M to label rather than the value of the program counter. 
M may contain a simple expression consisting of Label C+/-^3, or #. M must be positive 
and label previously defined. No code is generated. 


- 4 - 




r 




[Label] ADR Lob [+/-^ 3 - Places value of operand into memory. If both operand and PC 
are less than 256,1 byte af code is created, otherwise 2 bytes. Normally the operand is 
an address. 

[Label 3 -Stores up to 40 ASCII characters in memory. 1 byte of code is 

generated for each character. 

[La bel] OCT Num [, Num. . .3 - Stores in memory up to 40 octal numbers where Num is 1 
to 40 Octal numbers separated by cammas. Each number results in 2 bytes of code. If 
number has prefix of - , the 2 S complement of the number is stored. Base prefixes must 
not be used in Num. 

[Label] HEX Num [,Num...3 - Same as OCT except that Num is in HEX and 1 byte is 
generated for each number. 

[Label] PCM Num [, Num...] - Same as OCT except Num is in decimal. 

[Label] INT Num [,Num...3 - Same as DC/v> except 1 byte is generated for each number. 

[Label] BCD Njm C, Num...] - Same as INT except numbers are stored in BCD and negative 
numbers stored as lO's complement. 

C. Example Statements. 

1 * This program is to demonstrate addressing modes 

2 * and does not represent an actual program 


3 

0010 


ORG $10 

4 

0010 

Label 1 

BSS 10 

5 

OOIA 10 


ADR Labell 

6 

0100 


ORG 256 

7 

0100 

J 

EQU 10 

8 

0100 31 

0101 32 

0102 33 

Label 2 ASC '123' 

9 

0103 00 
FF 

0105 FF 
FF 


OCT 177400,-1 

10 

0107 00 

0108 00 
0109 AA 


HEX 00,-00,AA 

11 

01 OA 23 
23 


DCM 9000 

12 

OlOC 10 


INI 16 

13 

OlOD 99 
OlOE 00 
01 OF Oi 


BCD 99,00,01 
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14 

0110 EA 

NOP 

Implied Addressing 

15 

0111 DO 
03 

BNE Label 3 

Relative Addressing 

16 

0113 AD 
00 
01 

LDA Label 2 

Absolute Addressing 

17 

0116 AE 
05 
01 

Label 3 LDX $105 

II 

18 

0119 25 
10 

AND Label 1 

Z. Page ADD. 

19 

01 IB 4A 

LSR A 

Accumulator ADD. 

20 

one EO 
OA 

CPX = J 

Immediate ADD. 

21 

OllE D5 
15 

CMP Label l r5,X Indexed ADD. 

22 

0102 41 
10 

EOR (Label 1 , 

X) Indexed Indirec. 

23 

0122 FI 
OF 

SBC (Label 1- 

1),Y Indirect Indexed 

24 

25 

0124 6C 
01 

JMP (Label 2) 
END 

Indirect 


IV. USE OF THE 6502 ASSEMBLER IN THE CMS ENVIRONMENT 

At Ohio University, central computer resources are available through use of remote 
terminals connected to an IBM System/370 Model 158 computer system running the Virtual 
Machine Facility (VM/370). The 6502 Assembler is stored on the Conversational Monitor 
System (CMS) virtual disk assigned to virtual machine AVENCTR. This disk is also avail- 
able to virtual machine AVIONICS in read-only mode. In practice, AVENCTR access is 
used for assembler maintenance and disk storage. AVIONICS machine access is generally 
used for operation of the assembler to produce hex input tapes for the JOLT or KIM-1 
microcomputers used in Omega navigation work. 

The remainder of this section is devoted to describing the CMS environment in which 
the user accesses the 6502 assembler, and it presumes a working knowledge of CMS on the 
part of the reader. Assembler maintenance Is discussed in Section 

•i 

A. Assembler Operation. First, the user must establish communication with the 
VM/370 system. Either by dialing the telephone number for 110-baud or 300-baud operation, 
as appropriate for the terminal device, or by powering-up the terminal for direct-connected 
devices, the user will receive the "VM/370 ONLINE" message. Type a carriage return (CR) 
in reply. After the prompting dot, type l.OGON AVIONICS (CR). The system will reply 
ENTER r‘\3SVv'ORD and type a mask to avoid unauthorized observation of the password. 

After the mask is typed, en^er the password in current use for machine AVIONICS. The 
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system replies with the logon message, and ends with a prompting dot. The user is now 
ready to begin CMS programming. 

The 6502 Assembler is capable of operation in various modes, with various require- 
ments from the user. In all cases; the assembler requires source program input either from 
the terminal or from a CMS disk file. Terminal input is entered as user responses, line- 
by-line, to prompting dots produced by the assembler. CMS disk files are produced by 
use of the CMS Editor. The EDIT command begins the file-building process. 

CMS files have compound names consisting of three parts. The user must enter 
all three parts to describe completely the file. For 6502 Assembler operation, the first 
two parts of the file description are arbitrary. The user may name his file anything he 
wishes as long as the name does not conflict with an existing file name in his CMS 
library. (The CMS "LISTFILE" command may be used to print library file names.) 

The third part of the file description is, for our purposes, either "A" or "C". This 
character tells which CMS "disk" will be used for file storage. 


As the AVIONICS and AVENCTR machines are currently configured, the A-disk 
is permanent storage for CMS files. The disk will remain, even though the user logs off 
the machine, to return later. Upon LOGON, a C"disk Is formed, as temporary stocage 
for CMS file use in the current terminal session. This implies that additional storage space 
is available to the user for temporary files of his own, or for work files produced by the 
6502 Assembler. The user can put files on the C-disk by using the character "C" as the 
third part of his file description, or by copying files from the A-disk. The 6502 Assembler 
will use the C-disk for all its work files to avoid crowding the A-disk (permanent file 
space) with temporary files which will no longer be needed after assembly is complete. 

For reasons which will become clear later, it is suggested that the user begin file con- 
struction on the C-disk, copying correct files to the A-disk when desired for permanent 
storai,e. 


B. Suggested Usage of the Assembler and Files. After LOGON, the user has a 
choice of using the Assembler to assemble input files directly from the terminal, or from 
CMS input files. To assemble from the terminal, the user begins the process by entering 

JASM TERMINAL (See Footnote 1) 

in response to a prompting dot from CMS. This command invokes the 6502 Assembler and 
replies "EXECUTION BEGINS..." and then issues a prompting dot. At this point, the 
user may type 6502 Assembler statements directly to Pass 1 of the Assembler. V/hen the 
Assembler "END" statement is entered, the Assembler enters Pass 2 and produces an output 
listing on the terminal including any error messages necessary. When Pass 2 is completed, 
the following files will be found on the C-disk: 


The JASM command, and others to be described later, is a CMS EXEC procedure, 
written for this application. CMS allows these pseudo-commands to be built and 
executed by the user. See Appendix B for EXEC listings. 
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JOLT CLEAN C - A listing of the user's input code, arranged in columnar form for eo-^e 
In reading. This file could be cooled to the A-disk (or to anotlier 
C-disk file name) for retention and subsequent updating, if desired. 

In fact, it must be copied or renamed before another JASM command 
is issued or it will be replaced by another JOLT CLEAN C file from 
the latest assembly. If the file is renamed, even though it is left 
on C-disk, the new JOLT CLEAN C file from the next assembly 
will not replace it. 

JOLT HEXCODE C - A file containing the hex "object code" in hextape format for 

reading by JOLT of KIM-1. To obtain this file on paper tape 
for input to the microcomputer, the user must output the file 
to the Model 33 Teletype (rM)unit using the CMS "TYPE" command. 
If the user is operai.ng on another terminal type which has no paper 
tape capability, he must save the JOLT HEXCODE C file by copy- 
ing it to the A-disk, logging off, and logging on later using the 
Model 33 terminal and issuing the TYPE command for the file 
name he assigned the file when he copied it. 


For example; 

LOGON AVIONICS 

JASM TERMINAL 

(entry of assembler statements) 

COPY JOLT CLEAN C TEST PROG A 
COPY JOLT HEXCODE C TEST HEX A 
LOGOFF 

Later, on the Model 33; 

LOGON AVIONICS 

TYPE TEST HEX A (with tape punch on before CR). 

Ti'.ese commands produce the assembled hexcode file, which the user saved on the A-disk 
as TEST HEX A, and the cleansd-up input file, which the user saved as TEST PROG A 
before logoff. Later, when the Model 33 terminal with tape punch became available, 
the user legged on and typed the hex file with the punch turned on to produce a tape 
foi cnlrv' to the JOLT of KIM-1. 

In many cases, this JASM TERMINAL mode may serve the user's need; one dis- 
advantage to this method exists, however. Note that input from the terminal goes directly 
to the Assembler. Therefore, input errors may not be corrected by the user before the assembly 
proceeds. The CMS system allows another operational mode which circumvents this dis- 
advantage. By building a CMS file of Assembler input statements using the CMS Editor, 
the user can take advantage of this very powerful edit capability to correct known errors 
in his input prior to assembly. After LOGON, the sequence is as follows: 
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EDIT MYFILE TEST A 


or EDIT MYFILE TEST C 

Where MYFILE and TEST are arbitrary names assigned to the file by the user, and the A 
or C denotes on which CMS disk the file will reside. It matters little whether the Ui>;r 
specifies A or C at this point; remember, however, that any files to be retained after 
LOGOFF must be on the A-disk. The user then enters CMS input mode by issuing the 
INPUT command and begins typing Assember input statements according to the formats 
given earlier. In INPUT model, all typed input is stored, line-by-line, in the file 
MYFILE TEST. If an error is detected, the user may elect to finish typing input and 
then go back to correct it. If he desired to correct is v/hen it occurred, he could enter 
EDIT mode with a null CRand use CMS edit commands to change the erroneous line, 
then re-enter INPUT mode to continue building the file. 

When the file is complete, the user must enter EDIT mode with the null CR and 
store the file on disk using the CMS FILE command. 

(Note: Use of the CMS AUTOSAVE command can aid in minimizing loss of data 
in case of a machine malfunction. See the CMS Command Guide.) 

The user now has a 6502 Assembler input file stored on disk ready for assembly. 

He should nov/ issue: 

JASM MYFILE TEST A or JASM MYFILE TEST C 

to retrieve the file and invoke the Assembler. From this point on, assembly proceeds as 
above, with JOLT HEXCODE C and JOLT CLEAN C files built. A program listing is 
typed at the terminal with error messages as appropriate. The file copying considerations 
are the same as above, except that the user may want to replace his input file with the 
JOLT CLEAN C file to take advan’-age of the neat formatting performed by the Assembler, 
facilitating later file update or correction. To do this, the user must issue: 

COPY JOLT CLEAN C MYFILE TEST A (REPLACE) 

This command takes the JOLT CLEAN FILE and replaces the user file (here assumed to be 
on disk A) with it. The user may also v/ant to copy the JOLT HEXCODE C file for later 
use, if it is error-free and valuable. 

One other option is allowed for assemblies from CMS input files. If the user is 
v/orking v/ith a large assembly, the time taken to type the listing on the terminal for each 
assembly may be prohibitive. Instead, the user may wish to keep a "master" listing on 
paper and update it by hand as program development proceeds. Then he can obtain a 
program listing only after a series of changes to the input file, or after a major change 
which renders his paper listing obsolete. To obtain an assembly without terminal listing 
he should issue; 
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JASM MYFILE TEST A NOLIST 


Where, once again, MYFILE and TEST are arbitrary names assigned by the user, and A 
denotes on which CMS disk the file is residing. The NOLIST option prevents the print- 
ing of any terminal output during assembly. Instead, the listing goes into file JOLT 
PRINTOUT C for possible later reference. 

The user may well want to scan this disk-resident printout file for errors after 
each NOLIST assembly. To do this, issue: 

JERRS 

The JERRS command causes a scan of the JOLT PRINTOUT C file and prints any error 
messages and the 6502 Assembler lines which generated them for the user's review. Note 
that JOLT PRINTOUT C is only produced when assembly is done using the NOLIST option 
on the JASM command. If JERRS is issued after a normal assembly, no PRINTOUT file 
will be found and no output of errors will be given. 

The user may find it useful to refer to the flow chart of Figure 2 and to the sample 
terminal session of Figure 3 for additional information. 

V. ASSEMBLER MAINTENANCE SUPPORT UNDER CMS 

Maintenance of the 6502 Assembler generally is done using the AVENCTR virtual 
machine. The master copy of the Assembler is located on the A-disk as file ASM6502 
FORTRy^.N AO, making it private to this machine. The file contains the FORTRAN source 
statements for the assembler (See Appendix D). A second copy is stored as ASM6502 
PFORTRAN AO, in a packed format for backup in case of loss of the primary copy. 

Maintenance usually takes the form of some update or alteration of the source 
code and then a series of tests to verify that the r<.;sulting Assembler operates properly. 

For this purpose, a set of maintenance EXEC procedures are provided in the AVENCTR 
A-disk library. MBUILD provides for compilation of the ASM6502 FORTRAN file into 
a MAINT MODULE C file which is then executed for testing. Later use of the MWNl 
MODULE C file is made by MASM, which works as does JASM, described earlier, 
except that the MAINT MODULE file is used instead of the operational JOLT MODULE 
A fi le. 


Correct forms for these maintenance EXECs are: 


MBUILD TERMINAL 
or MBUILD ASMBL TEST C 
or MBUILD ASMBL TEST C NOLIST 
MASM TERMINAL 
or MASM TEST FILE C 
or MASM TEST FILE C NOLIST 
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Figure 2. 6502 Assembler Data Flo/v. 
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Figure 3. Sample Terminal Session (Cont.). 
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Again, file names are arbifrary, and the same files are built as described earlier for hex 
codes and clean listings. To ovoid interference with current operating modules, however, 
all these maintenance files have MAIN! as the first part of the file name. 

When maintenance and testing are complete, the operative MAINT MODULE C 
must be copied to .epiace the current version of JOLT MODULE C on the AVENCTR A- 
disk. Then, subsequent use of JASM on either AVIONICS or AVENCTR machines 
will result in assemblies using the updated Assembler. 
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pFFgfaV«3 T'aG PASSEf. AN ASS'^^'ELY LISTING IS OUTPUT TO 
F A !MTE=> (LOGICAL ur' ! t f. LU) ALONG W ! 'i- AN APSOLUT'^ FI 
■^^fADAOLS BY JOLT'S CcMC'N O'’ 'ACS T EC.f-'‘>i CL OG Y • S TIV, TO T 
riL'.' (L CGI cal unit a, LUP). 

r 

C r-lL.'.. 11 IS A SFCUFNTIAL scratch FILE EOP STCPING INPUT 
C PCr PASS ■?. 
r 

C TF'" S-.YYECL TABLE IS SET TO ALLO^i 3FC CNTOIES. TO ALLOW 
C S.-T THE OIMENSICN C«^ ISYMOIS.N) A NC S Y ‘-f B ( N ) TO THE SIZ 

C n'FIGED l-Y'ABCL TAOLF LCfiCTH SET f-lSYTM T C THE N'JMRE 

c rr!’’PiES. this nfc^ p£ rchE only in th=- vain ppcg’am. 
c 

oiM'-Ns ION iN( 40 ) , lapel ( :n . '-oui ? ) , I Arm 2 ) , I PCI i; > , ppuE 

TNTEGE' LLPtLU.LUIN 
FOAL FC»CC0E(3) 
n I PEN ST ON POUT (30) 

0 I PENSION I SYM0( 3,100 . SYMB ( K 0 ) 

GAT A ST AP/ • * ■ / , blank/ • ' /,LU/€ / ,LU I N / 5/ , L UP/ 4/ , N S V T V 

HATA VNMAX/26/ 

INTEG'’^ nSK 
"^-AL ^^^iE 

0 = 0 
•: F . ^"^ = 1 
*/.ONE=- 1 • 

A I T V c 

Tv.0 = 2 
rs'A = D 
''SK = I 1 
v:s--- 0 
T f> / s «■ = 1 
r A S 3 = 1 

F.LP<T:=G 

PC--'' 

1 INl-C 

1 . If ( 1. I N - . L T . 0 ) L I N'" = - L ! F ' 

I ' ( C S tf. . - O . 1 > G E C 7 C 1 
A 0 ( l.'J 1 N , 1 ) I N 
CALL L>^v ’■( I’D 
V 1 Tr ( 03K , 1 ) ! N 
C-C T''' 7 02 

’N I ' £/,r;{ c=:k , 1 ) irg 







fj o o o 


1. 1 N?: = L I + I 

1 r^’P MA T ( aOAi?) 

IMUFc: = 0 

ICHAr =VA SK2( sne( IN'( I ) ) ) 

r • 

C Crw.'lNT? 
r 

IP ( IChA*^ ,Nt: ,«;TAq )CQ Tr. 12 
IF( PA S5. F0.2 ) WQ I TE ( LU .? )L INF. ir,’ 
rr; TQ 10 

2 AT ( 1 X , I A , 1 1 X , ACA2 ) 

c 

C L.AEFL? 

r* 

12 TP( IChAC, ,PG. '.LANK )GC jr 30 
C 

r Pi^OCLS? LABFL 

c 

I A3FL { I ) =eLAN< 

I ADEL ( 2) -BLANK 
I APEL (3) = FL ATJK 
iPjL=e 

call G/.nPD( IN.nuFP.AITY.LAEPL. ICGL.TFLAG. Z^O ) 

IP ( PASS .EC.2 ) GC TC 30 
IF( IFlAG.NE.-1 )GC TO 2C 
V-G I T“ (LU. P )L INE .LABEL 
Kc.p'T=NEFR+i 

P P’PPA T ( 1 X . I A . • LABcL TOC L^NG; USE *.?A2.* *** •) 

C 

C »LT 1. Ac3SL INTO SYWCCL "^AOLF 

2 0 CALL £Y»-’RT ( LAPEL . TC . I SY SYTf , l U . *'! = Y ? Y , L I N = . '^IF - R ) 

C 

C 'V - CPCCOE 

c 

3 : CALL CPCD( I N . ! P'JFP , «Vt-. , CCS r . t A E ^ ^ SY . I S Y v 3 . Sv R , PC . I O TF , 

A CBU=.JK) 

C 

Q frPLQP OLTfvij 

C 

IF ( I EA-roo , EG. 0 .OP ,r ASS .EO. 1 )GC tm 35 
t ':A'r = NEP F ♦ 1 
I I NE = -I INF 

TO(201.202.2T3,2(.‘-.2O0.2CO.P?C~.2rs,2Cq.?lD,?l 1 ) .i^ppop 
1 V r. I T<- (L'J . 3 n >L I NT 

1 TCP VA T ( I X , I A , • l.-'F'L UND'FIN^P i- * * • ) 

C Z TP 3 

2 V R ITS (LU .302 )L !N=^ 

:? FOR**/ T < 1 X , I A . • *** ILLEGAL CPF.AtO 

03 T J T=, 

2C3 aR 1 Tr (LU . 301 ) L I NP 

3OJ TOR MA T( I X , I 4 , • Iiv-vr^iATr VALUE > *v*«) 

rC TP ,lr> 

V-.R I TE (l.U. 304 )L IN'P 


p.,,„ 


Aswcosor 
A GMCC 570 
ASM0056C 
AS.MCOGGO 
AS»^OOAOC 
ASMOCT I 0 
A S M 0 0 e 2 c 
ASYooe 3 P 

AS ’-*0 0 04 0 
A SYCCf 30 
AG’OO"- 0 
A SM;*.C67C 
AS”C0<^'‘C 
AS'^COGOC 
AS'-10C70C 
A 5YC071 0 
ASM0072C 
ASV.V00730 
A SMC 0 74 ? 
ASYGC7EC 

A SV C? T/- n 

AS'^0077C 
A SMOC70C 
ASV00790 
AS'*coorr 
ASVOOOl 0 
ASM00E.2C 
ASM0C830 
A SV C C S 4 0 
ASMCCOPC 
AS*'00 ® 6 C 
A S M P C T 0 
A SMC0860 
A SM O? 39 
ASMOOQOO 
ASMOC^l 0 
A S M 0 P 0 2 0 
ASM0093C 
A S‘*C094 0 
A S M 0 0 9 *=^ 0 
ASMOOO*-? 
A SVCOPTr. 
ASMOC03T 
A S M 0 C 9 P *■ 
A 3 7 0 ICO' 
A S 7 0 1 0 1 P 
A S-O? 1 C PP 
AS701 03'' 
AS *-»0 1 0 4 9 
ASMo 1 OS : 
AS ‘*0 1 0 ^ 0 
A svo 1 0 70 
A3MC 10 
A 5'-’ 0 1 0 'T- C 
A S ‘ ’ 0 1 10'' 



rc^vAT(ix,i4,» « Acc'-'~cs cuTF. ir“ '‘uC^rs? s^Acr ***•) 
cc Tr nb 

^0.) A-lIT£L(LUt305)LTNr: 

:J')‘= M at ( 1 X , I ^ INV-LIC I^!DI^~CT A D")r S « T NG 

cr T'-j .15 

.TO' A " T Tc (LU t 306 ) L I \T 

I'.V. Fi'.' V A 7 { 1 X . I 4 , ' INVALID t-rLATlVl- * J= * ' ) 

cr TC il 

7'T? i-.-' I 7E (LU t 3C 7 ',L TN'F 

7C ' AT < 1 X , I illegal A DD<. f c c t 3 ycCr >^ * * • ) 

C-'-> 3*^ 

2C5 ‘'(C I Tr (LU , 30 3 )L INC 

3:7 F J-' MA T ( 1 X , I A , • *** INVALID CCC=^ ^***) 

G., TO 35 

20“ ’*'= I TD (LU » 3CQ )L I NE 

30O FCtMATI 1 X* 14, • CCrSTANT TDD LATGF ***•) 

CO TO 35 

21' V^^: I T5 (LU , 31 0 )L TNF 

11' Fi''»“ MA 7 ( 1 X , 1 4 , • *** MCP*^ than 40 ASCII CPA'^ACTf^S *^***) 

CC TC 36 

211 V*T, I TE(LU,31 1 ILINF 

311 -r^MATI* •) 

3"^ TC( OASS .GT , 1 )GC TC 4C 

I ■ ( JK ,&T, 1 )PC=PC+BYTF* JK-FJYTE 
PC = PC •♦BYTE 
GC TC 10 


C 

C 


r'UNCH “LTPUT TADt= AND LTGTING 


IF ( OA 05 ,NE . IP A SS )GC TC I'TO 
IF ( JK ,GT , J )GC TP 60 

CALL CCNV 1 ( I PC ,TaC , I FTt .MCN’E ,PC ) 

nC = PC i^YTE 

Tr^( pyTE . EC. 0 . CP . BYTE . GT ,3 ) GH TD t5 
call CCNVl(I0PCD,CA'E,TPTt:, MCNf , C^O^ ( 1 ) ) 

.VF I t: (LU ,3 )L inf, IPC ( ? ) , IPC( 1 ) , I GFC? , IN 

■3 F r P N A T ( 1 X , I 4 , 2 X , 2 A ? , I X , A2 , 2 X , 4 r, A ? ) 

C AL L C :NV I ( I ADO, T^sP , Tf-TC , VTKE ,r.r~E ( 2 ) > 

! K ( ,VN ,N' , 0 ) GC TC 55 
;U’’ ( 1 ) = IPC ( 2 ) 

L eu'll 2 ) = IPC( 1 ) 

VN = 2 

1 '- P'UT ( VN«. 1 )- I 'OCD 
T T'.IT ( v,\+2 )= I ADC( 1 1 
T :UT(N';+3) = I ADD( 2) 

V\ = MN 4 - Y 7 .2 

T MN ,G'^ . MNV A X ) C A LL PL' Ch* ( P C UT , VN , L U c ) 
I‘ ( .3YTE . rO. 1 ) C,'' TC 10 
c YT r-PYTE- 1 

! TE (!.U .4 ) ( T ADO( !),! = ! ,‘‘YTf ) 

4 r C V .>1 - { 1 p < , A 2 1 
re TP 1 p 

I TT (I U ,T )L I N" , I re ( 2 ) , IFC( 1 ) , I N 
■r rjrYAT(lX,I4,2X,2A2,5>,4''A?) 

1 F ( JK- ,L T . : . pp . ^YTf , GT . 3 ) CP TO 



A SM" 1 1 1 0 
AS'-’Ol 120- 
A S'^Cl 1 30 i 
ASVPl 1 40 I 
A S'-iO 1 1 50 j 
AS'^OllftP j 
AS’-IO 1 1 7C 
A 0 1 1 PP 
ASMO 1 1 00 
A 5v 01 2 00 
ASMO 1 2 I 0 
ASV01220 ^ 

A S'^'Cl 2 30 
A3‘-»0 1 24 0 
ASMOl 250 

A SMC 1 ;>50 

ASMOl 270 
ASM0123C 
ASP 01 290 
A S M C 1 3 0 0 
ASMO 1310 
ASM ■) 1 320 
ASMOl 330 
A SMC 1 340 
ASMOl 3*^P 
A SMC 1 360 
A5MC13''C 
AS*'*0130C 

AEMC1300 

A S M 0 1 4 C 0 
A SM 0 1 4 1 0 
ASMP142C 
A 5'*0 1 4 IP 
ASM 0 Wi 4 0 i 
A S M 0 1 4 5 0 
ASMoi4ec I 

ASM 01 47 0 1 

ASMC14£'0 J 
ASMOl 4P-C J 
ASMO 1500 
ASMPISIO * 
ASM0152C ( 
ASM01530 > 

ASMC1S4C ^ 
ASMC1550 ; 
ASMCIG^C [ 
ASM^'lETO t 

A s -4 0 1 <=; p 0 ^ 

AS‘'*C15P0 i 
AS“Ci 60 r. i: 

ASM? 1610 I 

ASPC 162 P I, 
ASM 01 630 
A5V01640 

ASMOICSP I 

1 

f 

i 

i 


- 19 - 


''b TO 1 •') 

‘.f ( M\ .G r , ? ) CALL PUNC M '-'CUT , VN ,lAir ) 

rr TC 10 

e C C': f 1 KK = 1 , JK 

CAL L C'"NV1 ( IPC.T'aC, IPTf- ,V?U'2,PC ) 

!«•■ ( '-'K .N- . 0 ) GO TO e.3 
tbLlT ( 1 )= IPC( p ) 

I CL'-^ ( 2 )= IPC( 1 ) 

■ M-P 

co rc-PC-tPYTo 

CCOL ( 1 ) =P°UF ( KK ) 

C^A L CCNV 1 < I ADO , PYTF . IPT:" , wr.NE tCCP: ( I ) ) 
f- ZOT ( 1 ) = IACC( 1 ) 

PCUT ( V\ + 2 ) = 1 ADC ( 2 ) 

VM=M\- +nY7E 

IF ( '-ir.' .GC .N'C;MAX )CALL FUNCH( PCUT , MN ,L'J~ ) 

TF( KK ,<^0 . 1 )GO TC t2 

V.P ITf (LU . 9 ) IPC ( 2 ) . IPC ( I ) . I ACD( 1 ) 
y f-'f:VAT( 7X.2A2. IX.A?) 

( 3Y TF . FO. 2) VVP I TF( LU t A ) I ADD( 2 ) 

Al CONTINUE 
GO TC I C 

£2 V. A I Tf^ (LU, 3 )L INE . I PC ( 2 ). !PC( 1 ) . 1 ADD ( 1 ) . IN 
IF(BYTr.FC.2)WPTTF(LU,A)IAr»D(2) 

C-C TO A1 

ir.' IC(FAES.='G.3>V*PITF(LL'.2)LINF,IN 
J = PAE £- 1 

1: ( LU .NE . 1 ) W9 I TE(LU .75 ) J ,NE pp 

?'■ *r:r-wAT(/* end pass • . i i . • : • . ix , 13 . • '^frcts*/) 

If (FA SE.EG. 3)GC TO 7C 

t T r«ip = r 

fx r & p = c 
TP/. S5. = 2 
t'C-0 

>^E.-<1NC OSK 
C S = 1 

CG TO in 

7c Tr { M\ ,GT .c )CALL PLNCH( CCUT , MN.LUF ) 


V P I TO (LUP .13) 
1 i t-Cr T ( • ;0C • > 
STOP 

■■ Ax') 




A SMO 1 Af 
AS'IOI A7C 

A s^’o I ceo 
AS70 1 600 
ASMCl 7C0 
A SM 0 I 7 I C 
AS^O 1 720 
A 5 '7 0 1 Y T 0 
A S*^0 1 ■'AO 
AS *<101 75 0 
AS'iO 1 750 
AS*>C1 770 
A SMOI 7PC 
ASMO1790 
ASMOl SCO 
A sf-in 1 B1 0 
ASMOl 520 
AS*-«01 5-30 
A SMCl RAO 
ASVOl 85? 
AS*<101 860 
AS'IOI 370 
A S *^ 0 1 8 3 O 
A SMOl 890 
ASMS I 9C0 
A SVOl 91 0 
A SMO 1 920 
ASM0193C 

A S*'*?! 9A? 
ASM0195'' 
A SMOl 980 
A SMO 1 9''0 
ASMOl 930 
A SMOl 9PQ 

A SVP2noo 

ASMC20 I 0 
ASM02I20 
ASM02030 
ASM02C AO 
A SM02050 
ASM02C60 
asmopctc 


fucCTT^N ISCLT( Iptc , iBur > 

TV 'LICIT 1NTEC-ECY2 (A-Z) 

I'-iTECTF ipxp 

ll-‘TS FL'NCTICisj IS'^I.AT^S TH; TPTo«th CHA'ACTf IN IBUF St 
T*-.'.T lECLT CCNTAINS T»-f- rhAr\CT'^F / ND A SPAC*" 
ni ••‘"N £ To*.j I 7 (jf( 1 ) 

[AT/ OLANK/* •/ 

!<=( TrTA+i )/2 

IK1 = IFTP + 1-?’KIK 

IF ( U 1 .FO. : ) ISGLT = MASK2(£.P ■»( IEUF{ IK ) ) ) 

!.*-'( IK 1 ,Fo, 1 ) I SCLT = vasK2( IDJF( Ik ) ) 

Pt” TU" N 


A SM 0 20 3'' 
ASM "*2090 
A SMC? 1 00 
ASMC21 1 0 
A SM02 12 0 
A SMC21 30 
ASMC? 1 AO 
A SM021 5P 
ASM02 1 8 0 
A SMC? 1 70 
A SM02 1 20 
ASM 021 90 
022C0 


'USfrCuT I N= ^n.-C (L [L ,l \Th!, rjSYT , ^ v'*-' , T SY v,7 , rj «--S , V i L . 

* \ .-cA-cr . vccz t i=C ) 

IYHLTCIT *2 ( A-Z ) 

C 

C SL“^- .IbT I K«E. 53 c CUT TH" VAA inj« ACC~'"SS VCCCS AND OE'^'IP M ! Nf'S 

C '■K*' VALLE Cf THE GC-fTAMC 
C 


r 

LAP L'L 

qoccanc field 

C 

1. N'"PH 

LENGTH CF OPFOAUD F I C 

c 

\5 VT 

NLM3E -'- CF ENT w 1^4 T^ SYMgOL 

c 

SYMS, ISYM3 

SYMPCL TAELE 

c 

5YT- 

LENGTH CF INSTF'JC''' ICN 

c 

P A s S 

AS3FV«L5P PASS NUMFEP 

c 

V Al 

value CF cpepand 

c 

I E PE CP 

FRECO flag 

c 

vrnz 

ADDRESSING MDOF 

c 

PC 

PRCGFAM CnUNTCF 


c 

<: I M E N E I ON L A CL ( I ) , I S Y V ^ ( :^ , 1 ) , I C M J) 

lata at/* E, • / , DCLL at/ • t • / .aC'-^T/' K • / , plus/' 4- • / , MTNUE./' - ’ / 


c 

c 


c 

r 

c 


c 

c 


O'. CCV'^IA/' ,'/#3LANK/' • / i"GUAL/*='/»PA^Ef./* ( '/tA/’A'/ 

'ATA X/'X'/»Y/'Y*/,C0 a t'CN /•)•/, OUOTF/''*'/ 

• "AL VAL.t=C 
t. THEN SIGN SYV!?(1) 

ICHAP = 1SCL"!'( I »LAE3EL ) 

TF (! CHAP . EQ .equal ) GC TC 10 
ICFAP.FC.DAPENlGO TO 20 
(LAEEL( 1 ) .EG. A )G0 TC 30 

Ays C= Z.pagE ACC'^EESIM-7 
T--JTP = C 

C ALL LA'OPS(LAeEL.LNTH,ID^P,VAL.N£YT, SYM« . I SY^T , I . PC ) 

TF( VAL.GT.E553E . ) IEPPCP=A 
A? TP( VA L .GE . 25<i ) 3YTF =3 
lr(VAL.LT,?5E)=YTr=? 
ir( I£SPCP.\E.0)EYTiT = 3 
IF ( p AS £ . 50 . 1 ) PcTUPN 
IF( IPT '.5G.LNTH)GC TO CO 
IF((!PT=+2).N5.L\TH)IFPFPP=? 

!F( ISCLT( IPTP + ?, lapel ) . 50 . X )G0 -=1 

!•=( I SCLT( IFTP4-?,LACEL ) . 5C.Y )GC T" S? 

T J C P 0 P =• /? 


INDEX ACOrESr VCCES 
C! "~OE-E 

■ P ( V A L . L T . 2 5 E . ) V- r E - 7 
LP rUPN 
5 2 = 

I F ( V A L . L T . 2. = *: . ) '^C r E = 11 
P ETUP N 

TNV'DIATp ACOPrSSING 



A SVC?? 1 J 
A SM0??.?0 
ASV02230 
A SM022A 0 
ASM022b0 
A SV022E0 
ASM02?70 
A5M02?»^0 
A S‘-*C2?90 
ASW 0230 C 
AS*’023 1 C 
ASMC2320 
ASM*) 2 3 30 
AS'4 02 3't0 
ASM 02 35 0 
ASM02350 
ASMC2370 
A SV0235'' 
A5M023P'' 
ASVC2AOO 
ASM024 1 0 
A S''^ 02^20 
ASVC2430 
A S w r ? 4 4 P' 

A svtroasc 

ASMG 24 EC 

ASM02470 

A3vr'24/:40 
ASM0240C 
A 5V02'^'' 0 
A SMC 25 10 
A5-'.C?“?0 
ASMC2530 
ASV02'=’4O 
ASMs?'==:. 0 
A SMC 2550 
ASf-'0?FTC 
A SV0253C 
ASV02 = -^0 
ASM025.' 0 
A SVC261 C 
A57C2620 
a SMC 253 C 
A SMC 254 0 
AS**C25E 0 
AS.VP'2* ^ C 
A SM 0 2670 
ASM 02 5 5'' 
A SMC 2 50 0 
A SM027 C 0 
ASM 0271 0 
A SMC 2 720. 
ASV0273C 
A SVC? 74 0 
A SMC ?7P-P' 


10 r- Y T E = ? 

IF(PASS."G. 


1 ) P'PTLTN 


- 21 - 


r’T'.= 1 

1 r H A = I S C L T ( T >=T i-< 4 1 , L A h L l. ) 

ICh Aw,=fj,QLiCTF. )GC TT 12 

CALL L AGO-T ( L AEFL .LfsiTf-, I JTO , VAL , M F V t , y ‘^r » I '^V MG , T'-:rPcr , PC > 
TP ( VA L .GT .?S- , ) I f C?=;j 
WlLOi' = 1 

IP \/AL = ? = e( LAOGL ( 2 ) ) 

(LNlh ,E0 .2 ) VAL = 22 
Tf (LMI-.G"".A ) IHPnC^ = ? 

N TOfc = 1 

p r u p ^ 

AfciCLUTF ant ZEP3 PAGE ACO=ESSING 
150 

1F(VAL.LT,256)'^0CE = 3 
P/;-i U'^N 

I^i:iP = CT ACCPESSING 
2.' fVT=^-2 

!'‘(PA£G.EG.l)PETUPL 
IPTP= 1 

CALL L AQPP ( L AGEL . I N T h , I t3TP , v AL . N S Y T , c y Vp , T SY'-'B . ! p C~ . PC ) 

IP(VAL.GT.6553'=;.)IEPFCL=4 

TP( IP7P,=0.LNT|-)GC TC 21 

ICLAP =ISCLT( I °Tq+ I , LAf f=L ) 

If ( lO-AP .EO.CPAPrN ) or rc 22 

IF ( I SCLT ( IPTo+ 2 ,LAnr L ) . X ,GP . { I^'^r f 3) . NE ! rPP3P = 2 

!\rrx“C I*'nir‘=CT 

Tr ( VAL .LT , 0 .OP • VAL . GT .256 . ) 12^- C-- =6 

>'rOF.= f 

'^LTUPN 

ir f'l -rcT { JUMP CNiLY) 

2 1 .*V'2DE=10 

P- TUP K 

22 IP ( I SCL ’^ ( ( I PTP4- i ) »L Af F L ) .UZ .Y . ( I = t::+ 3 ) irPPnP = 2 


IN'. I '>r. CT IN2‘="XfC 


IP ( V AL .L T . : .HP . V AL . GT ,2‘=^ ' . ) I^PP CF = ‘ 

V r P E = *■ 

Pp TUP ^ 


AC ''OMUL /“ ACCP = G?INC' 

HP !=yTF = 1 
Vf.IDE- A 
f. r T U P ^ 




ASMP27CC. 
ABV.C2770 
A3MP27eO 
A '•MJ2790 
A S'-’ ''2 6 ' '' 
A5MC2B1 0 
A SM 02 02 0 
A r.M02“ 30 
ASM02640 
A SM0205P 
ASM 020 CC 
A SMC207C 
A SM 02 0 20 
A 0MO2OPO 
A 5M029C0 

ASM 0 20 10 

A SM 02 92 0 
A SM02«3''' 
A *=M 22PA 0 
ASMC2'?50 
ASM'^PP^C 
A 3 M 0297 C 
A SMC 2 9 GO 
ASMOpPPC 
ASM0300 0 
ASMC301 P 
ASM 03020 
A SMC 3 03 0 

A C 30 4i: 

ASMP3PS0 
A S M 0 3 0 “ 0 
A SMPIP'^C 
A SMC 30 3 0 
ASM 0 30 20 
ASMC310C 
A SM C 3 I I 2 
ASVP 3 120 
ASM031 3C 
A S’*. 0 3 I 4 C 
AS.v. 0 3 1 SO 
ASM 1 3 1 c '' 
AS**0“'l'^0 
A S * • 3 3 1 a ) 
A SMC31 00 
A5*'03?CC 
A SMQ 32 1 : 
A SMr 3PPC 
ASM032JO 
A ?M032A P 
A S'*o3?SC 
A SM032SO 
A 5 m.''32'^0 
A S‘T0323C 
A SMPJ2 90 
SM0330C 



SLP'Rf LT I NE 

LAnD-?(LA“?:L,LNTH5 JPT 

P. , V A L 

5v ’ , 

SY VP . ! SY VR , I F.JTD-J , 3C ) 

A5M0 331 0 i 



I^fPLICTT INTEGEP*2 (A-Z) 




ASM0332C 


c 






A SMC 3330 


c 

■^L!F- PCLTINE 

CETFPMIN=-£ TH" VALU^ 

-F A 

LAPEL 

IN ■Ph'E rPcPAND ALONG 

ASM03340 


c 

;%ith an added 

OR subtracted const 

Af. T 



ASM 03 350 


c 






ASM0335D 


c 

L A BtL 

LABEL FIELD 




ASMC3370 

• 

4 

c 

1 . r- T hf 

length lapel 

1 ELD 



A5M033EC ' 

c 

I P TP 

PCINTEF IN FIELD 




ASM03390 


c 

V Al 

RESULTING VALUE 

OF L A 

BEL 


ASM 034 00 


c 

N S YT 

NUN3EP GF SYMBOL 

TA3L 

E ENTt 

lES 

A SM0341 0 


c 

SYMd , I 5YV3 

symrcl table 




ASM034P0 

c 

f F r^Cjro 

EDFDP FLAG 




ASMC343C 

c 

PC 

PPCGRAV cnUNTEP 




A SM03440 


PT iL ANSEP t V AL , PC 

'(NTEGEP + 2 ABHT(2-^)/'A* ,'B* ,'C* .'G'.'H* ,» I*,*J».*K*, 

* • X • , • V • , • z • / 

CATA COWM A/ • , • / , CPA'^EM/ • ) • / , ZE 'C / • 0 • /.NI N=/ • P • / , BLANK/* •/. 

A A/*A'/, Z/*Z*/, AT/* f, •/, DOLLAR/* CLUS/* + •/,'■’ I NU ?/*-*/. ST A= /* * 

LATA PCFNT/*X*/ 

r r-'ENS TON LA3EL( 1 ) * £YM3( 1 ) , I SYVB( 3. 1 ) , IC'P( 3) 

PEAL EASE 


ASM03450 
ASY034ft0 
AS'JtDBAZO 
A SVO340O 
A SMC 3 490 
A5M03500 
*/A PM0351 C 
AEMC3520 
A S MC 3 5 3 0 
ASY0354C 


C 

C 


C 

c 

c 


INTEGER KPTR 
CU'^ = 1 


L r-f.K FOR SYV6CL IN TABLE 

VAL = C 
I ADC= 1 

t.'hAP = ISCLT( IPTP+1 .LABEL) 

IF( ICHAP .='^-STAP )GO TC 44 
nc 10 1=1. ?G 

( ICHAP .EO,AR=T( I ) )GC TO 14 
1 ” C !MT IMjE 
cr TP 13 
14 ^EP( 1 )=BLANK 
I •:=»(2 ) = ELANK 
I :p(3)=rlank 
I. TB=e 

CALL Cv CT.Di LAE*^L. I°TC .LN^H, *''«p,L 
If ( TFLAG .EO.- I )GC TC 4 f. 

I r ( Nf \T . cO .9 ) GO TP 1 4E 

46 T = I ,lsyt 

I':PR= TiE ( IQP( n-!SMV3( 1 . T ) ) * A D 
=>■■ I AD ( T^P( 3 ) - I GYB'J ( 3 . I ) ) 

TF( T’'Po.‘-Q. ‘) )GD TC 4e 
4L rONTINO'" 








H, I FLAG, ) 


( C= ( 2 ) -I SYMP ( P , I ) ) «- 


I A'^r-L NCT FCUNO - ASSUN'*' NOT EAEf PAG" 
1 ' T E R P C P = 1 

r - turn 


A3M035EC 
ASMC3fv5C 
ASM 03070 
ASYOiOaO 
A S'-* 0 3 590 
ASVC3^?C ' 
ASMr'3‘10 i 
ASM 0 3. -'2 0 ; 

ASMC363P j 

A'.)M03^40 1 

AGMOZeCO I 
A5Mr;3ft6 0 ! 

ASM03C70 j 
ASM03A.Q0 i 
ASM03AC0 J 

AS“037jC ! 
ASMOJ'*10 
A S M 0 3 7 2 0 
A5M0 3‘’30 
A3M03740 
ASM 03 750 
A5MP3750 
ASV03770 
A 5V0 3zeo 
AS MO 3 "*9 0 
ASMC3eC9 
AS” 03 61 0 
A 3MC3°20 
A SMC 3630 • 
AS MO 3 6 40 j 
A SMO IP^O * 


23 - 


I 


1 


1 


1 


I 


C LAUTL 12 - G'!r rc 

C 

VAL = ft 
TCTq= IPTP + 1 
GO TP Afl 

^ 0 VAL = S V va ( I ) 

a I-( inip,cQ,i_MTt-')Gr TC 6-7 

r 

C f<^CPT CPEFAND TC PPCC^S? 

C 

K . : T P = I P T P 

TCrAP=ISOLT(KPTP.LA&EL) 

IF( IChAP .EQ.CCVViA ,oc .ICHAP.PO,CPA = P^.)G•^ T 9 ac 
IF( ICFAP.EO,DLUS)IAC'D = l 
!F( ICI-4P.E0.MTNUS)IA[:C = -1 
13 IPTF=IPTP+1 
KPT-5= IFTP 

ICHAP=ISCLT(KPTP,LAP=L) 

BA3c=C 

ICI-AP.FO.AT)?ASE = 6 . 

IF( IO-AP.EQ.DCLLAF ) tASE=16, 

IF( IChAP.FG.PC"NT)r;A5F = 2. 

I'=(!CHAq,GF.2FP0.ANC.ICHAP.LE.NI'''F)SAS5=10. 
ir(?AEF,F0.0 )GC TC AC 
rP(?ASF,£Q.10.)TPTP=IPTP-l 

CALL CCNV 1 ( LAPEL tLNTF, I PJP , HA t A M ) 
TP(IACO.EC,i)VAL=VAL+ANS£R 
IF( I ACO.EO.-l ) VAL=VAL-ANS-P 
A^ r-rro-N 
ar irrp=iPTP-i 
PETUPN 
A V. VAL. = C 

Ii-:rPCP = ? 

F ET' J"^ N 
LI CL 


A 

AGV01B7C 
A pvc.i"e'j 
ASC-10 Je-3 0 
ASVC^P'^O 
A SMC3 91 0 
A5V03P20 
A SVC'393 0 
A SM030AO 
ASVC39S0 
A SA'CIPF 0 
A 3M 0 3970 
AS'-103980 
ASM03990 
ASMG AOOO 
ASMOAO 1 0 
AS*^CAC'2 0 
ASMCA030 
ASVCAPAO 
A SMCyAOEC 
AF.MGAC60 
A S'-’CAC^O 
AS^*GaOoO 
A SMOACPC 
A SM C A I C 0 
AS VC A 1 1 0 
A SVGA 1 ?r 
ASvna 1 30 
A SVC A 1 AO 
A SVGA 1 =0 
A SVGA 160 
ASV0A170 
A SVGA 1 00 
A3M0A1 90 
A SV0A20 0 
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noonnnnt^nnonr. 


I 


I 


1 


I 


1 


C 

c 


f G>'«C'^0(I ^Vr , ! HUFr^ , I f-U FL , I P=! F » I , 1 PL '.G . I FST ) 

IMPLICIT INTEGS:^*? (A-Z) 

Th^'S SUhnruTIS'P tp/.k.cf‘FS WU^CLI FPC.'*' CNF EUFFP'- TT ANCTH^P. a 
V/CFI 2 IS DEFINfiO A TRAILING SPAC?, INITIAL BLANKS Arrr THROWN 

~L)T, IF AN CrC NJMapP CF BYTES Ap = ‘■^•CCL^•TEF ED , FINAL DYTF OF 

TFF CUTFUT BUFFFT? IS FILLED ,V I A ELANK, 


^ HL'f 
1 fjUPP 
IPPF 
I F I'L 
I F 1. A G 


! FST 


INCUT BUFFEF IFUFL BY^FS LO^'C• 

POINTS TO LAST PYTE FFCCFSEFT IN IFNF 
OUTPUT EUFFPc 

INPUT AS LtNC-Th (lYTSS) CF IPGF, CN pFT'JT.N # PYT^S VOVED 
ON PFT'JPN: C NCPMAL C»TUC^ 

-1 END CF IPPF Ffs.GCU\T"PcD 
1 FNC OF IPUF “nCCUNTEcED 
1 - R£CGPC VAY END ^ ITH +,-t C "? * 

0 CECGRC ENOS V'lTH BLANK 


Cio-'ENSICN I3UF( I ) , ICBF( 1 ) 

TATA SPACE/* • / .CPAPE’'!/' ) • / , PLUS / • + • / . MINUS/* - * / . COMMA / * « • / 

TFL AG = 0 
TPRLI =0 

20 T,-)UFP=I8UFP + 1 

IF ( IPLFP.CT, IEUFL )GC TO ICO 

Il< = { I EUFP4-1 ) /2 
IK 1= I EUFP + l-?’tIK 

IF(IK1.EG.0)ICHAF = SF5(IL-UF(IK)) 
miK l.co,l)ICHAP=WASK( IRUF(IK) ) 

TEST prc leading SPACES 

IF ( 1CFAP.pO.SPACE/2F<:<AND. IC3LI 0. J )GO TO 20 
TEST FCF trailing SPACE 

I F ( I CF AP ,-C.SP ACE/256 ) GO t - j 200 
TF( IFST.ED.O)GC TC p.\ 

If ( ICFAC ,E0,PLU5/?5F ,rP,ICHA:?,tO.'-'TAUS/2E6.0-.ICHAP.cO.COMMA/2'=;c) 
# GO TC 200 

IF < I CFAO .DO. CPAPEN/25F >GO TC 2CC 
PACK NCN-SPACE BYTES 

21 IPOLI =IPGL I+l 

!~ ( IPEL I .GT , iPOL )C-G TC SOC 
TJ- ( I FPL I + 1 )/2 
IJl = IFELH-l-2*tJ 

!F ( IJ 1 .EG.O ) IPEF( IJ )=VASK2{ ICFAP ) 

T^- ( IJ I .EC . 1 ) I P8F( IJ ) = SC a( T 3ap( I j ) ) >-?56+ I Chap 
cr TO 2C 

'■NC TF INPf^ PLFFSF' F"TljF\ 

ICO 'FLAG=1 

I 'jsp= I eijFo- 1 

20 '' IP^L=IPSLI 

I F ru’’ N 

CU^'-'IJT EUFFSP CVFtfLO'.V 
3CC IF L = IPPl !-l 

II L A G = - I 
f-F TUP N 
FNO 


A S M C A 2 1 ' 
A SM0A22 0 
A '-M0A2 JO 


A SVC A?SO 
AEVCft?6C 
A Sv042'’0 
A SM0A2 5C 
ASMOAPOO 
A SM0A3C0 
A S V C A 3 1 0 
A 5 MC A 32 C 

A SM0A33G 
ASM04 lAO 
A SM043=0 
A SM04360 
ASMC43T0 
A SM0A3«C 
A SM04 3P0 
AS MCA ACC 
ASM0‘*A1 0 
ASM0AA20 
ASM0AA30 
A SMQAAAO 
asmqaaeo 
A5M0A460 
A SM04A70 
AS-MCAAEO 
A SMCA APO 
A S'-'OASCO 
A 5M0AS, 1 C 
A£moa‘;2« 
A SVC A = 30 
ASMCiSAG 
A SM0A550 

ASMCAf F. Q 

A SM0A5 7O 
A3V0AEH0 
ASMOa S9 0 
A S'* 04 60'“ 
ASMQAE 1 0 
A SMO^FPO 
A SM0AG30 
ASM046AC' 
A SMOASS':' 
A S M 0 A 6 0 
A S M 0 4 6 P 
A SMCAc SO 
ASMOA^o 0 
A 5V 04 7 T 0 

A S 0 4 F 1 0 

A FMC4 720 
A S'-* 04 72 c 
ASV04 7ZiC 
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I 


I 


I 


I 


I C-^^CC ( T N , I Purf , .'V Tf ,ccr.'' » TA ES. ^.SYT , I ='YMP , C'Y>^P «DC . 

1 ! - %ot; ,npur , jk ) 

IMPLICIT ir4TcGr->:«P ( A-Z ) 

c 

C ’HIC SUF'PCUTIMr 0'‘-CCr>r~ th 3 AND C^LLE P- GC TG C:rCGCf 

C l.ABfcF L*^^. GN pass 1 IT r-'.'TU-NS wITh ^pE PU‘^3E" GF BYTT'S P'^CUTF.'f' 

C r nr TP2 INSTRUCT I CK . CN PASS ? T ALSC pPTUAf.S TH'" CCOF IN 

C /SPAY CCCF, 

c 
c 

C TN 

C IBUFP 

C nYTF 

C CCDF 

C PASS 

C NSYT 

C TSYM3 

C SYMB 

c r-c 

C lEFfiCF 

C Grt’jF 

•: JK 

C 
C 

r: INFNS !CN NCPC( ?.7 T ) , IM{ 1 ) , I 5 Y M g ( 3 , 1 ) , J£ 3 'JF ( 1 ) 
r 1 MF KS I CN ODCF ( 3 ) ♦LAEEL ( 40 ) , '■M S T ( 3 3 ) , Y ! 5 2 ( 1 1 , ? 2 ) 
fr'AL VAL.PCtCODF 
CIVFNSICN COQF ( 1 ) , 1 ) 

CATA FLUS/1H + / . YINUS/IH-/ 

CATA N0PC/2H^p , 2HK ,2hCL,2HC , 2HCL , 2Hn t2HCL,2HV , 

P 2HG5.2HX »2HCFt2PY . 2P U-' ♦ 1 P X , ? H I 'i , 1 P Y , 2 v-'N' , 1 , 2HPH , 1 H A , 

f, 2HPH , 1 HP , 2HOL . IhA , 2HPL . 1 HO ,OMr T . 1 P I , 2HP , 1 H5, 2 MSP , 1 HC . 

2HSP. . IPG . 2HSF » IHl , 2PTA . 1 HX ,2HT A , 1 Y , 2HT : , T ‘-X , 2-lTX , IHA , 

!i 2PTX , 1 H S ,2HT Y , 1 H A , 2PEC » 1 HC ♦2HGC . 1 MS » 2HP«^ , IHO , 2H3Y , 1 HI , 

f. ?HBr. . 1 H.F , PHPP , IHL , 2HFV , 1 HC . 2HR V ♦ 1 H c , ?h A'' , 1 Mr , Rh Ar! , 1 HR , 

& 2PAS . 1 PL , 2PF I , I PT , 2PC N' , 1 PP . 2HCP , I HX , 2HCF , 1 HY , 2HG'" , IHC , 

;; :?HP;q , 1 HP , 2 HI N , IHC , 2 M JM , I HTJ , J s . 1 pF ♦ 2 HUC • 1 HA , ?HL P , 1 HX , 2 ML 0 . 1 HY , 

'* 2HL3 t 1 PP . 2HQP , 1 HA , 2PPP , 1 HL , 2HSF , 1 MC . 2HST , Ir'A , 2HST , IHX ,2H ST , IHY , 

■/ ‘■'« 2 H f 2PCP , 1 HG , 2HEN , 1 PD, 2F ~0 , 1 PIJ . 2PR5 . 1 HS , 2H4 H . I hP , 2HAS» IMC , 

’■ 2P*GC . IHT , 2HPF » IHX , 2h DC , 1H3 , 2PI N , 1 M-r , 2HBC , I MH/ 

FATA V I ST/0 ,24, 2 1 e , SF , 1 34 , 2C2, I 3E , 23 2, 2C^ , ?3A , , p , 1 OA , AO , 

t. 6 4 , L- e ,SP ,24 A , 1 20* 1 70 , 1 6M , 1 3F , 1 3 - , 1 «= % , 1 F2 , 1 4 A , I 76 , 240 , 43 , 

20 '% 10 , SO , 1 1 2 / 

DATA VI ST 2/ 105, 1C 9, 101,-1 ,97,113,1 1^,12 5,121,-1,-121, 

L 4 I , 4 c , 3 - 1 , 3 3 , 4 P , F 3 , 1 , , - 1 , _c 7 , _ 1 , 1 A , A , 1 r. , - 1 , - 1 , 22 , 30 , 3 * - I , 

54 - 1,4A,3o,F>!c-1,2C1,2C5,107,-1,1C3,2:o,213,?21,2 17,-1,-217, 

J 224 , 23c ,228, e*"-! , l c ^ , 2 04 , 1 , S - 1 . 

A - 1 , 2C4 , 1 9b , 3*- 1 ,2 1 4 , 222 , 34 - 1 , -73 77 , 5 S , - 1 , "5 , P 1 , ■’F , 93 , C 59 ,_i , -gp , 

" - 1 , 2 3-^ ,2 35 , 3*-i , , 2L:4 , 3 ^- 1 , - 1 , 7 , 76 , - - 1 , 1 C S , - 1 , 

55 -1,2«22,-; ^-1.16 9, 173,16 = , -1,161 ,1-77,161 ,1^9,1,5,-1,-1?5, 

0 lF2,174,l4A,,5-v-j,i9c,-l,13?,lrO,172,I':4.I--l,lS3,18 8,3«c-l, 

“ -1,7£,70,-7A,2^-1 ,36,94. 3-^-1, '-,13, '‘,-1,1, 1 - 7 , 01 , 29 , 25 , -1,-25, 

•' - 1 , 4 6 , 38 , 42 , 2*- 1 , 4 , 62 , 3*- 1 , 

L 2 33 .237 ,229 , - 1 , 225 , ?4 1 ,24 5 ,25 3,24 ,- 1 ,-249, 

" -1 , 1 4 1 , 1 33, - I , 1 29 , 1 4 ^ , 1 4P. , 1 r-7, I f 3 , _ 1 ,_ig 3 , - 1 , l 42 , 1 1 4 , 7 ♦- 1 , 1 3 : , 
X - 1 , 1 4 0 , 1 32 , 3 * - 1 , 1 4 e , 4 * - 1 / 

C 

C PINO CFCCDF 

c 

/- ' = C 

A > T Y - c 

JY=0 
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INPLT tUFFFH 

INPUT FUFF5P PHIN-'-PF 

NjYPFR CF BYTES FC^ ^ g t9UC T I 

FFAi. fcUFFFF ccntai'‘Img tp= rro= 

ASME PASS 

NUV'BrIF Cr ENTPIFF I r. SYHgCL -taBL^ 

syyfdl table 

SYPBCL -^AGLE A CF ESSES 
O90G9AM COUNTER 
ERFfP FLAG 

constant QFFTMTTCN EUFFEP 

NUVBFP cr CGNSTA^JTS IN' C3U‘^ FP -1 PDF OPG 09 PSS 


/> 5V''4 75 0 

A SY 0 4 750 

A S Y04 77r> . ' 

asyc 47 og ; 

A SY 04 790 

ASM04SC0 ; 

A S'-'C4 51 0 I 
A SY0 4 520 
A SY0433C 
A SM0484'' 
ASY04M50 j 
ASY04860 • 
ASM 04 970 
ASM048SO 
AS'104p9 0 I 
ASY04OD0 i 
A SY 04 91 0 
ASY04P20 
ASY04930 , 

A 5YQ4940 ! 
ASMH495'> j 
ASY04959 ' 

A SY 04970 
ASM 0 49 3 0 
A S Y 0 4 c 9 0 
A SM0500C 
ASYC5C 1 0 
A SYC5020 
A SYCE 0 30 
A 5Y0 = C4C 
A 5Y05050 
ASYC506 0 
4 57050-70 
A SY F> 0 3 0 
A S Y 0 5 '' 9 '* 

A SY0 5 1 0 0 
A S’-IC'- 1 1 0 
ASMC51 20 
ASM051 30 
ASYO'^ 1 40 
ASYA'S! 50 ■ 

A S Y 0 5 1 6 0 
ASYCEl 70 
A SY r 5 1 s 0 
ASM051OC 
ASYO520O 
ASYCf 21 C 
ASY05220 
A3‘'C52J 3 
A S Y 0 *= 2 4 0 
A SYCr 250 
ASYC‘^?4& 
ASMC5270 ; 
A SY 052 80 
A 3*' 0= ?m 0 
A SM053CC 
A SMC 531 0 
A SMC 5320 
A S Y r 5 3 3 0 
A SYS 5 340 


A S''C “3oC 
A 3 '’053-0 



I ''PCC --4 

(./'LL C-wnf.‘D( IN» nu'-p , A ITY,n-5CP,LCPCP , IFl. AG , 7.~C ) 

7' ( IFLAG.\p. D ) !~tPCP = 6 
’ 10 1 = 1,70 

I’=^r<P=I/iH (rPCF( 1 )-NCPC( 1 , ! ) ) + I&0 ( "!f'CF(2)-*;r:'^C( ?, I ) ) 

TF ( I F,^'~ ,EG.0)CC Jr i i 

10 C ' r>l T I N L G 

]r. cp(;t;-Q 

f ODE( 1) =- 1 
'YTE=C 
f-0 TUP^ 

11 r. < I .GT.3 3)GQ TO f 2 
C 

C CPCCDES UITh IVClT'^C OF FFLA^IVE A CDF E 3S I G 

C 

IF( I .LT.2'3)PYT5=1 
IF( I .GT.25 ) 3YTE = 2 
TF(PASS.EQ.1)PETUFN 
CrOE( 1 )=.>^IST( r ) 

IF( I .LT.2e)P5TUF\ 

L A3L= 8 0 

call GWC=iC(IN,l3UFF,AITY,L ASEL , LA6L , I FL A G , ZF O ) 

IF( IFLAG.NE.O )G3 TO IIC 
ICHAR=ISCLT(l,LAeEL) 

I PTR= 1 

I ADD= C 

T''( ICFA^,EO.PLUG)IArC=l 
!F( ICFA^.EQ.MINUS) IACC=-1 
IF{ I ACD .EG .0 ) IDTF=:C 

CALL LA0Ffi(LA°FL,LAeL,IFTP,VAL,NSYT,SYME, ISYMfl, lEFGQR.PC) 
!F( I A CD. EG, 1 )CCOE( 2)=VAL 
IF( lACC.EO.-l )CGDE(2)=-VAL 
I'’-(IACD.EG.0)CCDE{2 )=VAL-(pC+P) 

Tr(CnCE(2).LT.- 1 20 .CP .CODE (2).GT,128)IE = '=C:A = 6 
FETU^N 
C 

50 LAgL=8C 

IF ( I . EC. 61 > GO TC 60 

IF( I .C-T.e4. AND.I .LT.71 )GC TO 70 

c 

C CPCCDES AITH VtL'^IFLF ACDC'P ct; j k(; VOCES 

C 

CALL C W?PD ( IN , TP'JPP , A ITY ,LA EEL , L ADI, , I FL Ar , ) 

IF( IFLAG.NE.O )G0 T‘~ 11'’' 

CALL F.'-CC(LAAf;L,LAeL,NSYT,SYM3, I‘YVn,BYTt^,aAS5,VAL, 

C I F. F P C R , M C n E , P C ) 

II ( 1 .LT , ) GO TO ‘^2 

C 

c r:'G» fcu, ess, Avr adp psueoo i n'^t~uctio'- c 

c 
c 

0 y -r F = r 

IF ( I . EG . EC ) PC = VAL 

!F( I . SC.60 ) JK=-1 

1 ■' ( I . CO. £ 2. AN’D. -»A S S .EG . 1 ) SY Vf<( NSVT ) = V AL 
rCDE ( 1 ) =G 

roC'-( 2 * = c 

IF(I .£G.!i3)EYTE = VAL 
IF ( I . NE . E4 ) PE'^U<'N 
( YTE= 2 
CCOF ( 1 ) =V AL 
ncr ( 2 ) =VAL/25£ 

IF < V AL .L T . 256 . AND .PC .LT ,256 )'<yTF = 1 
rFTuP^ 


ORIGINAL PAGK IS 
OF POOR QUALin' 


ASM05170 I 
. S'^C 53 S 0 
A EM OS 3 GO 
ASM054C0 I 
A SM054 1 C . 
A 5 M 05420 j 

ASMO'^abc ! 
A SM0544C j 
ASM05450 I 
ASM0546.0 , 
A SM0 5470 
AGM05460 
A EM05ASO 
ASM'' 5 50 0 
ASM0551 0 
ASMC552C . 
A SM05530 , 
ASM05540 
A SM0555C 
A SM05560 
A5M0557C 
A SM0558C 
ASM055S0 
ASMOEeOC 
A SMC 561 0 
ASM05620 
A 5M05630 
A SM05640 
ASM0565C 
A SMC 5660 
ASV0“^670 
ASMoseeo 
A SM05690 
ASM0S7CC 
ASM 057 10 
ASMC5720 
ASM0S73'j 
A SMC 574 0 
A5M05750 
A SM0576 0 
A SM05770 
A SMC 5 7 30 
A SM057GO 
A3M0"300 
ASMC5 »1 0 
A 5M05P20 
A S M 0 5 8 3 G 
A SMC5SA0 
A SV05B50 
ASMO'^ 56 0 
A 5V05E70 
ASMG5S80 
A SS105“9C 
A SM05PCC 
ASM059 1 ? 

A SVC5P2 C 
A S'»05*v3C 
A S M C 5 4 C 
A 3M05O50 
A S.VC 5P60 
A SM r=;c 7 0 
A SM <: ‘'^^'0 
A 5 r 5 o r 
A SMC60CG 


c 


A5YC6C 1C • 

c 

VUl.'^ ! PLF' v^C^L’ I NST'’Jl!C'f I ?rj 5T'ir. 5 

A5MC602C J 

c 


ASM 0^0 10 : 


r ( I . EU . A4 ) T.-=3 

ASMO'iOAO ; 


!?••( I .'=C.45)GYTH = 3 

►* 060^0 i 


Ir ( '-^A SS. EC. 1 ) P'TUPN 

A s ^o^.oeo 


COOir ( 1 ) = vrST2( 1-23) 

AS ■ O-^r-^0 ! 


1^=^ ( CC lE ( 1 ) . EO •- 1 ) GE TC POP 

ASMO608O j 


Tr ( CCOE( 1 ) .GT.O )GO TC 20^ 

AG*106')90 j 


c.jrt ( 1 )=-conE ( 1 > 

ASV06 1 00 ' 


FY T“ = 3 

A SMC'=> 1 10 


CC TC ?07 

ASVOG 120 


IEr.P0r: = 7 

ASMOA 1 30 

P.07 

CCDE ( 2 ) =VAL 

A SMCA 1 AO 


fFxgr K 

AS^C A1 50 


r/,SS=P ASS+l 

ASM 051 60 


r=ETU.~N 

AS'1051 xo 

c 


ASM05 1 eo i 

c 

-f-niCCtlES REfVATMNC PSUEDO I ' J S T '-5 U C T I T N S 

A SY 05 190 

c 


A SMC 6 20 0 ' 

7Q 

CALL NUVBH( IN. I3UFP , CtUF . JK , I .PY'^Jf, lEPPCF ) 

ASM052 1 0 ' 


f.FTUPN 

ASM 05 220 , 

1 1 f; 

IPPRQC;=2 

ASM0523C ' 


FF'^IJF N 

ASM0fc24C 


^ ND 

A SV05 250 



n n o 


I 


I 


1 



' SUPP 

ClTINF 0YM-JT(L.AD[L .P-C , I SYMP ,NSYTM,N,KSY’’,SYM3,L IN-,N-EFH ) 

AS MPA 2-0 


lYPL I C I 

T TMTEGEp*2 (A-Z) 

ASmG6?'"0 

c 




A£V0p2‘^f 

c 

T 1- T S PJ 

^CC'PAM CHECKS LAPrLS A NT fr'Tr^S VALTF la? ^'L S I 1 TO SYMB'^L 

AS'1062S0 

r 

>■ A 1. L b 

1 N 

PASS 1 . 

A SMC 63 CO 

c 




ASM0631 C 

c 

t ARTL 


LAEFL TC OF EK'^'PFD (LABFl(3)) 

A SMOG 32 0 

c 

Mv. 


PROGRAM CCUNTTP 

ASM 0 633 0 

c 

I S YMB 


SYMBOL table ( !F YM”.( 3.ESY^m ) ) 

ASMC634C 

c 

r;s YT.v 


MAX LENGTH CF SYVarc TA3LS 

A SM 063SO 

c 



L. U. FCP EPPCP CUToijT 

ASM C6 360 

c 

NoVT 


LCC CF last TAELE F-sITPY 

ASM 06370 

c 

S Y V U 


SYMRCL table ADURF55ES 

A SMC A300 

c 

LINE 


SOURCE LIKE CCLKTEP 

ASMO'^ 390 

c 

fxF -A 


V CF EFRORS IN f ASS 

ASMO'^AOC 


CtTA SDACE/' •/ 

INTEGuM’i'a A3ET(26)/*A*»'=?','C, ’[?•, 'E't'F'.'G'.'H*,*!* .’J'* 'K*. 
» • L • , • ‘ 1 • » • N • » • C • t • P ' . • C • . • ^ • t • S • , • T • , • U • , • V • » • W • . • X • . • Y • . • Z • / 

peal pc 

INTEGEP N 

CAT A A/»A'/,X/'X*/,Y/'Y*/,5/'^'/,c/«P*/ 

niN'ENSIGN LAREL(3)«ISYN“3(3, 1),5Y*>-S(1) 

L.L = LAE5L ( 1 ) 

if(ll.£c.a.op.ll.ec.x.cp,ll.f:o.y.?p,ll.eo.s.?p.ll.eg.p)G':' to &o 
ICHA= = VASK2(SPiJ(LAEEL(l ))) 

11 I 5 J= 1 , 26 

I'~( IC*-AP.EO.AEET( J ) )GC TO 100 
IE rO.MTINU*^ 

V -ITE (N. 1 iLlNEtLAtEL 

1 ( ORVA T ( I 5 t AH ♦*':« ,3A2,» U.'YALID. MUST STA-T 'X I TH L TFR > 

•■':*TU= N 

O-A- CH SYMECL •^A3LE FCP OUPLICAT^ T N T I E S 

lOl- IH ( NSVT. EQ.O ) GC TC 2CC 
1 1= 1 »NSYT 

--<;p = T a-3 ( LA3EL( 1 ) - I 3YVR ( I , I ) ) + I A-' ( L AB=^L ( 2 ) - T S VMO ( 2. I ) ) 4- 

* IA3 (LABFL(3)-TSYYE3(3, I ) ) 

jc.- ( cr ,ro ,c )0C TO 20 

10 Cr'NTiNUc 
2C.0 H‘3YT = NSYT+1 

IF( NS>T ,gT .NSYT'-* )GC TO 30 
t£h l -‘'F =:l 

IFYV.K 1 ,NSYT)=lA0 = L( 1 ) 

»SYVC<2tNSYT)=LAeEL(2) 

I f vv- ( 3 ,NSYT ) =L AFTL ( 0 ) 

?YVE(NSYT)=PC 
r ETU'- K 

2 A U T= (•:. 2)L IH'T .LAF-^L 

Pf'PVA T ( T 5 , • *#3^2. • TF. CUPLIC'-^" LAHTL ->**•) 

^ -f; A = Nf r. 1 
’-f TU^ N 

?.'■ t*P!TS(f. ,3) 

3 •^OF-1A7(* ***' SYMBOL TA'-.L: IVrrFLrv * a • ) 

f T 

AO V 1 TO ( N » S ) L I \'F , L A F OL ( I ) 

rO'VAKl'^,' *■ X * *flA2.‘ T f -V: 0 SY-IO'^l * *. • ) 

^ <: r F = N " ♦ 1 

s- 1“ T L - N 

r iO 
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ASM06A1C 
ASMC6A2C , 
A S'^C SA30 
A 1 VQ F4A 0 
ASiMCAAFO ^ 
AS'^OSA*>0 i 
ASMO^ATC j 
ASM06A30 ‘ 
ASMO^AOC 
ASV0A50C 
A SM 0«-51 0 
ASM06520 
A 5^05330 
ASMC65AC 
A S^-'O655 0 

A5M0G'=^'»C 
ASMC05A0 
A SM0F5 iO 
A S M 0 6> 0 
AS MC56 1 0 j 
A 0^0*^620 • 
ASM06A3C ! 

A SM060A.O , 
AS‘*0A6‘='' 

A SMO^ S6C 
A SMT f- C.7 0 

AS*>'C6j6 => •' 

ASMO-dOOC 
ASYOF'^O'^ 
ASV.0671 0 
A S‘'0^72F 

ASM0674C 
A SVCE750 
ASM 06700 
A SMC6770 
AS •C6’»S 0 
A SMC‘r7Q': 

A, SMOcHC 0 
A SM06 “ 1 C 
A SV<^A «2 r 
A SMOc A30 
A S M F 4 '' 

A S M 6 6 “ 0 
A£” 0:-''^'. 0 
A5.MC»='F7C 


SLiHfiOLT I NE NU { IN , IF ' , ^01 jc , j ^ , I , PVTE« Tr'’«^F’^ ) 

IMPLICIT TNTEGEr?»!‘? (A-/) 


THir EUE T C'^CCPrS •' P*" F NO C: F PSEUCO C'F G ASC . 'IC » H«' X , DC V , 

TNT. ANC DCO. 


IN 

I FTP 
c;puF 
JH 
I 

r-t-Y f ~ 

! f Pt^CP 
I'EAL 
O A T A 


INFLT PUFFFP 
PQU4TEP LOCiTlCr. ^r.o ^ 

CUTOUT SUFFFF fcA' C;7NST£\tc 
NLM 3ES OF CTNFTANTS IN Cf."F 
CPCOCE \UMFEP 

NC'<1PEP EYTFc i,m CCNSTiNT 

s.?:rpp flag 

ANSEP 

PLUS/' + '/ »N'INLE/'-' / .QUCTr/' • ' •/, COMMA/' . '/ 

C rVFNS ION OBUF( I ) . I N( 1 ) .NUM ( 3) 

INTEGEf* 2 ASCI(64)/32,F5,e5,67,E3,FP.70,7l, 

A 72.'^3.ZEC.Z2E.Z3CfZ2 8.??F3,Z5Ft/?£.7A,75,7E,7T,7fi,7o,F0, 

V 8I,°2,ZFe.36.42.4l ,Z3C.Z21,Z2r,Z2F,F3,p4,85,eE,B7,op, 

* E'?»ZEA,0,Z2CtZ25,Z2C',Z3F. Z3F. Z 3 '^ . A c , 50 . F 1 ,52.53.54.55, 

* 55. 5 7. 58, Z23, 64, Z27.Z 3D. Z22/ 

'‘•'iAL EASE 

I'iTFGSP KPT^ 

A ITY=E0 
ZRG = r 
CNE- 1 
AYT«:= 1 

1=(I.E0.6E.CP.I.£C.6E)DYTF-2 

-»:<=C 

JFTP= IFTq 
L NTH= EC 

FALL CwOPC( IN , JPTF , A 1 T Y .CG'JF ,LMTH , I FLAG . Z*" 0) 

1 -TE = JF TP-LNTH-1 
I I 1 =I -fa 

CC ( £5 .PC . 30 . 40 . 4L . 40 ) , I I I 


: 4 A S E 


3f 


t A 5 E — E 
GO TO 10 
E A SF= It 
C.I TP 10 


E'. 


= 10 


1 0 
L 1 

1 I 


“C 

2 


F V — 

,cp Tf M'^ocrss (tpefaf.d 
I F 9 L =0 

FALL F.V-CP 0 ( I N , I PTP , A I 7 Y , \U < , ! PF L , I I A G , ) 

K^T'"= I = T'; 

IC'-'r.’-=ISCL'^(»^PTh.IN) 

IF ( I CFAP . . t-LUS .fc . K F AP . LD. I NL'S ) GO Tp 1 ; 

TFUFP = r' (J 

f.ALL CCNVl ( NUM , IPPL , I ape , cr-c ) 

Jk-JK •» 1 

CH=rir.«-c /DYT"**e 
TF( CF .F'^.256)TFr 
I>‘( I , EG, .70 )GC TO 110 
TF ( I •’ ,50 , 1 ) AN«EF =- AF S' ^- 

T ( A F S ^ P . G T , 3 2 7 7 , ) A t S ~ - A N S PP - 'E ' 5 3 , 




A 5M06BBC 
ASM05R70 
A S M 0 6 5 C 0 
A 5M 06 G 1 0 
A5V 0F.G20 
A SMC6'73 0 
A5M05D4O 

ASMO0F35O 
ASMOFC-tC 
ASMOFDT’O 
A SM06P«F 
ASM 06900 
A 5M07000 
A SMO^Ol 0 
ASMC702C 
AS MO TO 3 0 
ASM0704'' 
ASM07C‘=-0 
A SM 07C6C 
AS.MC707C 
A5M070BO 
A SM0T090 
AS*'C71 00 
ASMOTl 1 0 
A SMG7 1 20 
AS‘^07 1 30 
ASM07 1 AO 
ASMOT 1 =0 
ASM 07 I 5 
A SM 071 70 
A SM07 1 3C 
A SM07 19 0 
A SM0T200 

A SMC 7? 1C 
ASMC722C 
A SM07230 
AS‘’07240 
A SM0-’P5F 
A SMF7 2*0 
A5M07270 
ASM072BC 
ASM0T29C 
ASM0T3C0 
A SMC 73 I C 
ASM0732C 
A SMC733C 
ASM0734C 
ASM07350 
A SMC73F.r 
ASM0737F 
A SMC738C 
A SMC7390 
A SM0T4CC 
A SV074 1 C 

A SM 074 2F 

ASM07430 

asm 074 40 
A SMC74 5C 
ASM074F ' 


I 


1 


I 


(.3UF ( JK ) =AVSFS 

I FORMAT (? I =i ) 

Tr(I(-fF,N.-,jDTR)Gr. TC 10 

R vtf:= 1 

!•=( i.so.£e.c^?.i.Ec.ee)°YTc:=? 

^f:TL'=>N 

K -> IF ( ICFA'T .=0 .M INUS ) ! M= 1 
CC TC 11 

C t CC P^OCFESCP 

lie IF( IM.C0.1)ANSEP = 1CG.-A\SE'^ 
JNO=ANSF?/10. 

reUF( JK)=JNC+lE + ANSFF-JNn*l *. 
!F( IPTF.NE, JPTF?)GC Tc 1C 
GYTE= 1 
rc TU<^ N 

C ASCII P-^CCESSCP 
f? TPTR = I«t: 5+1 
rYTF= 1 

t('. IPTR=IFTP«-1 
KPTP= I RTF 

IChAP-ISCLT(KPTR.TN) 
TF(ICFAR.EQ.OljCTr 
JK = JK, 4 1 

IF ( JK ,gt . 40 ) GC TC ty 

JCHAF =FF « ( I CH AP ) 

KCHAF = JCHA3/t4*64 
JCHAr: = jCHA"-KCFA«< 

( GLF( JK ) = ASC I ( JCHAF4-1 ) 

GO TC f.e, 

67 JK=JK-1 

TrF 4CR= 1 0 
FND 


ASM0747C 
AS V074 >50 
A SMC74S0 
ASV075CO 
A SMC7S1 C 
ASY>:7 5i?0 
AS -*C7Fir> 

A SVC7540 
A SM07550 
ASMC7Ft,'' 

A S'^07S70 — 
ASM07^ BC 
ASM07CC0 
ASMC76CC 
ASM0761 C 
A 5MC7APC 
A SM^7e3C 
A 5 **0764 C 
A SM076EC 
ASM076^ 0 
A SM07f-7C. 
AS'GV'AFC 

A S M 0 7 ^ F 

ASM0770C 
A S.MC771 C 
ASM077PC 
A SVC ■^7:10 
A SM 07740 

AS7077FQ 

A SMC 7 76 0 

ASM C'7 77r 
f, S^^c-^7t< 0 


ORIGINAU PAGE IS 
OE POOR QUALITY 


31 


SUtiPCCTiNP CO NV1( I'iLF.UUFL.IPTC.PACE.ANS--) 
IMPLICIT INTFGFP’«'2 ( A-Z ) 


C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 


this £LE;->TL'TIN'=’ CCNV = pT« EITHFR an ATFII PuFF-rr lH'JFL nVTps 
LTNC- TP A floating FCINT NU'-'OE^?. P" CCNV"PTS A FLOA'*'IMG POIMT 
f.LMBER 7 C HEX. 

,!»;LF RA' 5 E >0 I NP'JT ASCII F|jcpt--j (a\y L '‘MGTH ) 

EASE<0 OUTDLIT ASCII PUFFEf- HEX ( 1 CP 2 ViOCOS LCN’G ) 

"ILH.PL FOF EASE >0 Naves'^ OF BYTES TP “F. FPGCESGrO 

FOP BASE <0 NUVcFP *'F kCFTS TC EE CU'^pUT (I CP 2 ONLY) 

TP 7 R EASE>C POINTS TC LAST PYTc PPCCESSED 
EASE <0 NO FLNCTICN 

BASE EASE >0 BASE CF CCNVEPSION 

EASE <0 INDICATES CCNVEPSICN TQ ASCII HEX 


. ANSEP 


EASE>C floating FCINT FESulT CF CCNVEPSION 
EASE<0 floating PCINT SOURCE FC= CCNVEFSION 


IMENSION NUM (16).I'*S(1E), I5L'F( I ) 

=EAL EASE 
PEAL ANSEP 

integer KOTR 

INTEGER IJ 
'^EAL PJ 

DATA NUM/*0*f'l*.*2*»'3*,*4*,*5*.*e*»'7* 
« *0' , *E • , ‘F*/ 

TF( EA SE .LT. 0 ) GO TO EC 
ICTP= IOTP + 1 
JK = 0 

10 kPTA=Ihtp 
ICHAP=ISCLT(KPTP, IEUF) 

ICHAP =I SCLT( KPTR , lOUF ) 

'CD 20 1=1,16 

IF( NUN ( I ) .FT, ICHAC )GC TC 21 
20 CONTINUE 
NCN-PEC CGN I ZED SYMECL 
I F T=. = IPTP- 1 
CO TC 30 

11 JK=JK+l 
!i*B< JK ) = I-1 

IP( IPTP.EO. IBUFL )C0 TC 30 
!3T== IPTP+1 
■Q TC 10 
rCrvEPT '-ESULT 

•3 0 AN 5 rr = 0 . 

!'= ( JK .-0.0) P- TURN 
CC 31 L= 1 , JK 

TM *' NSE "• = an CBF +3 A SE* * ( JK-L ) » I /.'P f L ) 

'"•^U" N 

‘■‘o "F( A'^S'*^ .L'^.O ) AN'SFR = ee= JE .+A''JSCP 

• J= A S 
!= 1 


El I J= A VCD { P J , 236 . ) 

= T j , 1 e ) 

U. = IJ / l 6 

IdUF ( I ) = S~t ( NLM( I K + 1) ) * 
I "( I '"“LFL .EC . I )PETU“N 
1=1+1 

J = A • S P / 2 ■- + 

rz 7 '- \ 


pt- « ( +uv ( TL + 1 ) ) *2-1 
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A S'«i07 700 
A SHOTBOO 
ASYC^ei 0 
A SM07A20 
A 5 YO 7 A 30 
A SYCY8A0 
ASMC7FS0 
A SYC7660 
ASM07370 
AS Y07FB0 
ASY 07 A '50 
A SM07PP 0 
ASM07PI 0 
A SY 07020 
ASY 07930 
A 5Y O^PAO 
A SVC 79 50 
ASM07960 
ASM07970 
ASM07930 
A SY07990 
ASMOeOOO 
ASY090 I 0 
ASV09C20 
ASvrqn 30 
ASMOPOAO 
ASYOaCSO 
ASY09060 
ASV^SC^O 
ASYO 30 PO 
ASYC309'' 

A SY091 00 
A 5Y OP 1 1 0 
ASM03120 
A SVOPl 30 
ASM08 14'!' 

A S * * C E 1 S 0 
A SMC61 60 
ASMC9 170 
A SMO^l SC 
ASMF lOO 

ASMCP20C 
ASYC3210 I 
ASV0P220 
ASMC8230 I 
ASYCP240 
ASY 0 P 2 EC ' 
A SVC 3 260 [ 

A Sv 0 327 0 
ASMOE2BO ! 

ASVOSp-o I 

A S'-lO“30 P ■ 
A5V0°31O 
A 5Y0932C 
A SMC S3 30 
A S --O S 3 4 0 
A SMC 6 3 50 
A SYO S3^0 
A 5V0F 3'7'' 

A S ‘ 6 3 P 0 

AS’’C"39C 
A s V 0 e 4 c 0 

A s ■ C p 4 1 0 
ASVOS 120 
A S'* ~ t' 4 3''* 


I 


V 


SL.2PncTINF '^UNCH(Pr;UT .MN.LUP) 

I.vPLiriT INTEG=R*2 (A-Z) 

’ C 

C ■^HIS ?L'E'^0UTIN?: C AL C»jL ' T E THE CH'iCK?tv AND RUNCHiS THF PJ^CCPQ 
C 

C '^OLT ELPF[!P containing I NF C P AT I C N Tf OF P'JNCH'=D 

C VN NUI^OEF CF FNTh IGS IM PCUT (INCLUDING o. C.) 

.C I UP LOGICAL UNIT CF PUNCH 

C 

f-EAl. AMN 
•■=AL CHKSV.ANS 
integer LUP 

CIMC^NSICN POUT ( 1 ) , ICHK( 2 ) 

REAL NONE 
VCNE=- 1 . 

TWC = 2 
CNE= 1 

CHKSV = .VN-2 
CO 10 I=1»MN 
IPTP=C 
IP=PCLT ( I ) 

CALL CCNVK IP.TWC.IPTF ,16.,ANS) 

CHK5N= AWCC ( CHKSM+ANS , €5536. ) 

1 '> CONTI NUF 
A vr, = VN-2 

. rALL CCNVl ( NU'^.GNE , ICTF .MONF, A^N) 

CALL CCNVl ( ICHK ,TV>0 . IFTP .MCNE.CHKSV) 

V»PITE(UUP. I )NUV,(oout(I ).I=1,MN) ,ICHK(2) .1 CHK( 1 ) 

1 format ( 1 h; ,4C A2 ) 

VN= 0 
PETUF N 
•■NO 


ASM034AO 
A SM0“4bO 
ASM OP 4*^0 
A SMC bat 0 
A SMOBA p 0 
AS'^OB AQO 
ASM0B5C0 
A SMCB51 0 
ASM0B520 
ASM0C530 
A SMCB5A0 
ASM0B550 
A SMC8560 
ASM08S70 
ASM03530 
ASM0P5P0 
ASMG8600 
ASM0961 0 
ASMCBfc2C 
ASM0«53C 
ASMC96A0 
ASM0e6«C 
AS-AOBScO 
ASMC967C 
ASM086B0 
A SM096PC 
ASMC97CC 
ASM0B71 0 
ASMnd'^20 
ASM0«730 
A SMCBTAO 
ASM087B0 


TNTEC-E'^ FUN'CTTCN TA0>!«2(IN) 
HALFWCRC absolute VALUE, h CUT I NE 
integer *2 IN 

IF( IN .LT .0 ) I AO = -TN 
IF ( I ^ .CE .0 ) I A«=IN 
.-ETUPN 
N D 


ASMC876'^ 
A SMC?7-»0 
ASMC87eO 
A 5M»^37Pr 
A £M C 3 BO 0 
ASM0991 G 
A S M C B P 2 C 


\TECE - f.jnctiCN ma'-K2t-2 (Tv) 

r -...i yTp T« D^T NUMPEC- IS El IFTP.O L' FT -TTS 4N0 A PLA‘K 

C IE- AOO'-C IN' the 5ECC.no evT'^. 

I r; T r G ; - 2 J ( .? ) . T N 
‘ OUT V AL^NCF ( J ( I ) .K ) 

J ( 2 ) = I N 
h.=K*2 = f + BA 
f % ? K 2 = J { 2 ) 
i - TU - N 


A S M r B B 3 0 
A S M 0 ° a 0 

A S ‘ * C P B 0 
A S'^C P 960 
ASMO“ •'‘■'C 
ft 5 2 a a r 

e;vi(^OOcn 

ASMO^O? •' 
A S*-* ''9910 
AEMCB92C 

A S - 
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I 


I 


1 


IMF.G!:'r; rUNCTICN SFl?*?(ir.') 

I^^PLICIT INTF.GER*? 

C FALFWCFt: INPUT IS SHIFTHr: fight ° BITS. ZEPCS Af^PF^S IN 
C l.tFT e BITS. 

INTEGEF K 
I.NTFG«=p*2 J(2) 

FQUI VALENCE! J( I ) .K ) 

K = 0 

J( 2) = IN 
K=K/25C 
SFS = J (2 ) 

-ETLPN 

FND 


A SMOSSAC 
ASV0B950 
A SM0BS60 
ASMC89T0 
ASMC3930 
A SMO099O 
ASMC9000 
ASM0901 0 
ASM09020 
A SM09030 
ASM09040 
ASM09C50 
ASMC9060 


TNTEG5P FU^•CTIC^ VASK*2(TN) 

C LALF'.vPFC IN^gT: 9CUT1NE ZEPPS LEFT S BITS 
INTSG=h*2 J(2).IN 
''GUI V ALENCE ( J ( 1 ) t K ) 

K = C 

J( 2 )= IN 
K = K<s 2 SE 
J( 1 ) = C 
-K=K/25f 
vask= J( 2) 

PETUP N 
PNO 


A SV0907C 
ASMC9GBC 
ASMC9090 
A S’-* 0 9 1 0 C 
AS*^091 I 0 
A5M09120 
ASMC913P 
ASM091 AC 
AS«09150 
ASM09 1 60 
ASM0G17C 
A SM091 30 


5U8PCL'' TN'E LFVT(IN) 

C Fr=WATS IND'J'r LINE V« I T H lAaEL Ui CPL . 1-6, O^COCE IN 3-10, 

^^.r: CPFP-N’C ANp cgn'wfnt sepasatfd by p spaces, helps usep 

C BY ALLCvsIN’C- F^EE-c^CPY I^•PUT, 

Lcr-icAL»i iN( eo ) ,K( 2 ) ,prs( sc ) 

IN TEG PP *=2 »LK/* •/ 

INTfCpP*2 L 

TNTC C;r IBUF(20) .FK/' •/ 

‘-nuiv fi ENCP { ieuF( i ) ,r f s( i ) > , ( k ( n ,l > 

PC i r 1=1,20 
1 0 laur ( I ) =c»< 

L=PLK 
V= 1 

X ( 2 ) = r . ( 1 ) 

IF ( L . EC . PLK ) CC TC 12 
t = S ( 1 ) = ! N ( 1 ) 
no 11 1=2,7? 
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PAGP ro 
POOR QUAUTY! 


ASVOoi 00 
A SMC9200 
A SN^CO 2 1 0 
A SM09220 
A SV0923C 
ASM0O2''-0 

A S'^092Sn 

A S'*’C02e 0 
A S‘^CE2''0 
A SMCP2 3 2 
A S^*09 2PC 
A 5MC9 300 
A 5^0931 0 
ASMOC 122 
AS*-»093 3 0 
A S'>'09 3A0 
A SM093SO 


w 




I 



IV= I 



A SM09360 


K(P) = I\( I) 



A SVC9370 


IFCU.EO.eLK )GO 

TO 

1 2 

ASM09 3P.T 

1 i 

s;es( I ) = 1N( I ) 



A S.'^093QC 


GO TO 99 



A SV09ACC 

1? 

J=fi 



ASM09A1 0 


N = M+ 1 



ASM09420 


'ro 13 I=V,72 



AS'^09430 





A 5*^0944 0 


KC2 )= I^( I ) 



A S'<C9450 


IF(L.N”^.eLK)GO 

TO 

1 4 

AS‘^C94^0 

. J. J 

CCNT I ^UF 



A 5*1^09470 


GO TC 99 



ASMO940C 

1* 

V = 8 



ASM09490 


DC 15 T=N,72 



A SMC9<50a 


KN=I 



ASV0951 0 


K(2 )= IN( I ) 



A SM0Q520 


*IF( L. EO.0LK )GC 

TC 

1 e 

ASM09530 


'^£S( )=IN( I ) 



ASM095AO 


v = M+ 1 



AS»-»D9550 


I'"<M.GT.72)GC3 

TO 

99 

ASM09560 

1 3 

CUNT I NUE 



AS^C9570 


GC TC 99 



A SM095S0 

1 f- 

nn=nn + 1 



ASM39590 


DC 17 I=NN.72 



AS*^J9600 


N=I 



A 5^096 1 ? 


K (2 )= 1N( I ) 



AS MOO 620 


IF(L.NE.BLK)GC 

TC 

le 

ASM0963C 

1 

CONTINUE 



ASM09640 


CZ T r ^ g 



ASMOOtbO 

1 

W=12 



ASM09660 


CO 19 I=N,72 



ASMD9A70 


• NN= I 



A 5^^006 S 0 


K ( 2 ) = I N ( I ) 



ASM^'9690 


IF(L.=0.eLK >GC 

TO 

20 

A S'J'C97CG 


CFS( W )= IN( I ) 



A SV0 971 0 


V = M+ 1 



ASM0972C 


IF(m,c'^.72)G': 

'TO 

9 9 

ASM0973C 

i*"-; 

C3NT I NUE 



A SM0976C 


CO TO cc 



ASMC97S0 


V = M+2 



A SM0 9'^6 0 


CO 21 I=NN, '2 



ASV097‘'0 


f = I 



ASMC97fln 


K ( 2 ) = 1 N ( I ) 



A Sv 09 790 


Jr*( L .NE.HLK ) GC 

T<" 

22 

ASM09“30 

p.\ 

' ONT I N'JE 



A c 0 9 4 1 C 


GC TC 90 



ASMC042C 

7'..^. 

f-n 23 I=N,72 



ASM096 3 0 


I'^( V . C’ . 72 ) GO 

TO 

9 9 

A SM0994 C 


9 - S ( '• ) = I \ ( 1 ) 


RIGINAL PAGE L8 

AS'^09»‘iC 

2 i 

V = M ♦ 1 


Asvoge^o 

C t 

:C ICC 1=1.72 


OF POOR QUALITY 

A SM0947C 

ICO 

irj( I ) =9F 5( I ) 



Asvooseo 


TFTUF N 



A 5*^09690 


' NO 



ASM09900 
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APPFNDIX B 


t 


I 


I 


I 


1 




f 


file: frcfilc exec a 


GCCNTFCL CFF 
CP SPCCL P 3 F CLAES * 

GIF GFEACFLAG '^G 'CCNSCLE GGCTr --sjCSTK 
CPFAC ARCS 

-NCSTK CP SFrCL CONS TQ * NCT£t^M START 
SET RCYVSG S VSG 
CP terminal lines 132 
CP DEFINE T 335 C AS 1<53 CVL 1 

gstack yes 

eSTACK fi^L 
FCRVAT 193 C 
ACCESS 193 C 
CP PURGE RCC CL T 

CP SPCCL CCNSCLE TERW STCc PURGE 
&TVPE ready: 1 -CYL c-disk cnline 
£1 G 2 G 3 £A £,s &e G 7 &E 
GEXI T 

/’ 


file: jasm fxec a 


GCC'.TFCL CFF NCVSG 

GLEEAL TXTLIO FCRTLIE . 

ERASE J3LT RPINTOUT C 

filedff e terminal 

FILFDEF A DISK JOLT HEXCCDF C \ 

'"ILEOEF 11 DISK JCLT CL'^A*'; Cl ( = ::C»^f' F PLKSIZE b‘> L’ACL 80) 
CIF GINDEX LT 3 GGCTC -NCARC 
5TA1“ F, 1 L2 &3 

GIF FFTTCrrS ^E C GGCTC -^IL*” / 

FILEDEF E disk FI G2 G3 (RECFM F LR'^CL SO) j 

GIF GINCEX 3 GGCTO -LOAD ! 

GIF GA £G NCI 1ST GC-CTC -NCLIST ^ 

-LDAD L^'ACVCD JCLT / 

start 

&«=• X I t 

-MDAPC GIF 6 INDEX FC 0 GEXIT 
GIF G1 NL tec.vinal GGETC -VSG 
F I L D F F S T F R V I N A L 
GG3TC -LCAC 

-MSG GTYP<" CCVFLETE FIL^ NAV^ ^'0T 3U‘'PLl'"^ 

Gf X I T 

-FILE GTYPt- FILE Gl G2 G3 NET FCUND 
G«^X I T 

-N3LIST FILEOEF C DISK JCLT PR!h'T<~'JT C 
GGOTC -LDAP 
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FILF;: jjjrpj: 




A 


eCCNTPCL CP-F NOySG 
STATE JCLT F^INTT.UT C 
eiF GEFTCOCE NE 0 GGCTC -FILE 
CFf GST ACK 

ve^^ify cri e 2E 
LOCATE / ENC PASS/ 

LOCATE / ENC PASS/ 

VERIFY OM 1 S5 

ZONE 1 5 

TOP 

CHANGE /-/-/ * * 

CU!T 

&FND 

E JCLT PRINTOUT c 
6 EX IT 

-FILE GTYFF JCLT PRINTOUT C NCT 

e=x 1 T 


\ 


FUND 


file; vasm exec a 


&CCNTRCL OFF NO'^SG 
GLCHAL txtl if FCotLIS 
ERASE NAINT Ph INTCUT C 
FILLPEF 6 -^S^VINAL 
FILFDFF A CI'^K VAINT HEXCCCf C 
FILEOEF 11 CISK .VAINT CLEAN C 
GIF GINi::EX 3 GGCTC -NCACG 

STATE- ei G 2 r ,3 

EIF EPFTCCC? ^.F 0 ECCTC -FILS 

*=ILFL'rf= E DISK El E 2 El 

EIF EIMEX FfJ 3 EGOTO -LOAJ 

EIF EA FC NCLIST EGCIG -NCLTST 

-LCAC LCAD N'CC VAI\T 

START 

E r X I T 

-NCA'^G EIF EInCEX EO 0 E'^XIT 
GIF El NC ■^>=--MINAL GGOTr -VSG 
fILEOFF S TS^'^INAL 


EGCTC: -LCAC 






-WSG GTYPF 
EEXI T 

CCWPLFTF 

F IL 

F h A r 

r ■^T sui 

PL IE 

-FILE ETYPF 
GFX I T 

F IL*^ E 1 

E2 

E 3 N C T 

Four. 3 


-NQLIST FIL 
GGCTO -LOAC 

SUfF « pT 

SK 

V A r N T 

= R IMT JUT 

C 



38 - 


file: V3UTLC 


FX3C 


A 


OCCNTFCL OFF NCVSG 
GLCEAL TXTLIE FCCTLIE 
eSTACK LIFT NCSGUSCE NOMA= 

EXEC PV^LFCFT ASM&E02 
LOAD ASM65C2 (NCMAP) 

GENMOC MAIM VCOULE C 

E^ASe I^AINT ccinTCUT C 

FILEDEF e TEPWINAL 

FILEOEF A DISK VAINT HEXCCTE C 

FILEDEF 11 DISK VAINT CLEAN C 

eiF eiNOEX LT 3 &GOTC -NOA-G 

STATE £l &2 &3 

eiF &FETCCCE Nc 0 &GC7C -PILE 

FILECFF 5 DISK r, 1 62 63 

6IF 6INCEX EC 3 6G0TC -L^AC 

6IF 64 EO NCLIST 6G0TG -NCLIST 

-LCAC LCAC VCD A I NT 

ETAP T 

6EX IT 

-NCAPG eiF 6IN'C'=X EC O 6fX!T 
6IF 61 Nt TE(;vinaL 6GCTC -VSG 
FILEDEF 5 ■^EPMINAL 
6GCTC -LCAC 

-MSG 6~YOE Crv'PLETE FILE ^AV5 r.CT SUPFLI'^ 
6EX I T 

-FILE 6TYP<= file 61 62 63 NCT FnjN'J 
6=^X I T 

-NCLIST FILE3FF /: DISK vaI‘.T C 

6GCTC -LCAC 
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